From 600c1b0f67f7805385d794e28a3f075feb634908 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 11 Jan 2023 20:30:19 -0500 Subject: [PATCH] Fixed another string variable NetCDF bug --- src/encounter/encounter_io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/encounter/encounter_io.f90 b/src/encounter/encounter_io.f90 index 1333c05aa..50180113c 100644 --- a/src/encounter/encounter_io.f90 +++ b/src/encounter/encounter_io.f90 @@ -232,7 +232,7 @@ module subroutine encounter_io_netcdf_write_frame_snapshot(self, history, param) ! Internals integer(I4B) :: i, idslot, old_mode, npl, ntp - character(len=:), allocatable :: charstring + character(len=STRMAX) :: charstring select type(param) class is (swiftest_parameters)