Merge branch 'NOAA-EMC:master' into sync_gsl_2021Jun

hu5970 · Jun 22, 2021 · 2139d25 · 2139d25
2 parents a3ceadb + a67b816
commit 2139d25
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/src/gsi/setupcldtot.F90 b/src/gsi/setupcldtot.F90
@@ -922,7 +922,7 @@ subroutine init_netcdf_diag_
         endif
      end if
 
-     call nc_diag_init(diag_conv_file)
+     call nc_diag_init(diag_conv_file, append=append_diag)
 
      if (.not. append_diag) then ! don't write headers on append - the module will break?
         call nc_diag_header("date_time",ianldate )

diff --git a/src/gsi/setuplwcp.f90 b/src/gsi/setuplwcp.f90
@@ -759,7 +759,7 @@ subroutine init_netcdf_diag_
         endif
      end if
 
-     call nc_diag_init(diag_conv_file)
+     call nc_diag_init(diag_conv_file, append=append_diag)
 
      if (.not. append_diag) then ! don't write headers on append - the module will break?
         call nc_diag_header("date_time",ianldate )

diff --git a/src/gsi/setupq.f90 b/src/gsi/setupq.f90
@@ -1073,7 +1073,7 @@ subroutine init_netcdf_diag_
         endif
      end if
 
-     call nc_diag_init(diag_conv_file)
+     call nc_diag_init(diag_conv_file, append=append_diag)
 
      if (.not. append_diag) then ! don't write headers on append - the module will break?
         call nc_diag_header("date_time",ianldate )

diff --git a/src/gsi/setupswcp.f90 b/src/gsi/setupswcp.f90
@@ -804,7 +804,7 @@ subroutine init_netcdf_diag_
         endif
      end if
 
-     call nc_diag_init(diag_conv_file)
+     call nc_diag_init(diag_conv_file, append=append_diag)
 
      if (.not. append_diag) then ! don't write headers on append - the module will break?
         call nc_diag_header("date_time",ianldate )