Added j2 and j4 terms to NetCDF

MintonGroup · Mar 3, 2022 · 5515769 · 5515769
1 parent 9f85ac9
commit 5515769
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -341,6 +341,11 @@ module subroutine netcdf_initialize_output(self, param)
             !call check( nf90_def_var_chunking(self%ncid, self%GMescape_varid, NF90_CHUNKED, [self%time_chunk]) )
       end if
 
+      if (param%loblatecb) then
+         call check( nf90_def_var(self%ncid, J2RP2_VARNAME, self%out_type, self%time_dimid, self%j2rp2_varid) )
+         call check( nf90_def_var(self%ncid, J4RP4_VARNAME, self%out_type, self%time_dimid, self%j4rp4_varid) )
+      end if
+
       ! Set fill mode to NaN for all variables
       call check( nf90_inquire(self%ncid, nVariables=nvar) )
       do varid = 1, nvar
@@ -474,6 +479,11 @@ module subroutine netcdf_open(self, param, readonly)
          call check( nf90_inq_varid(self%ncid, GMESCAPE_VARNAME, self%GMescape_varid) )
       end if
 
+      if (param%loblatecb) then
+         call check( nf90_inq_varid(self%ncid, J2RP2_VARNAME, self%j2rp2_varid) )
+         call check( nf90_inq_varid(self%ncid, J4RP4_VARNAME, self%j4rp4_varid) )
+      end if
+
       return
    end subroutine netcdf_open