add new internal variables

MintonGroup · Nov 10, 2022 · 4ed41f1 · 4ed41f1
1 parent ecdbcf4
commit 4ed41f1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -754,7 +754,10 @@ module subroutine netcdf_read_hdr_system(self, iu, param)
       class(netcdf_parameters),     intent(inout) :: iu    !! Parameters used to for writing a NetCDF dataset to file
       class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters
       ! Internals
-      integer(I4B) :: tslot
+      integer(I4B) :: tslot, status, idmax
+      real(DP), dimension(:), allocatable       :: gmtemp
+      logical, dimension(:), allocatable        :: plmask, tpmask, plmmask
+
 
       tslot = int(param%ioutput, kind=I4B) + 1
       call check( nf90_inquire_dimension(iu%ncid, iu%id_dimid, len=idmax), "netcdf_read_frame_system nf90_inquire_dimension id_dimid"  )