Bug fixes

ADCollard · May 9, 2024 · 67cddc0 · 67cddc0
1 parent 5be3fa9
commit 67cddc0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/gsi/setupps.f90 b/src/gsi/setupps.f90
@@ -1084,7 +1084,7 @@ subroutine contents_netcdf_diag_(odiag)
            !call nc_diag_metadata("skin_temperature", sngl(tgges))
            !call nc_diag_metadata("2m_temperature", sngl(tgges))
            !call nc_diag_metadata("2m_specific_humidity", sngl())
-           call nc_diag_metadata("landmask", sngl(msges))
+           call nc_diag_metadata("landmask", msges)
     !       call nc_diag_data2d("geopotential_height", sngl(zsges+zges))
     !       call nc_diag_data2d("atmosphere_pressure_coordinate",
     !       sngl(prsltmp2*r1000))

diff --git a/src/gsi/setupt.f90 b/src/gsi/setupt.f90
@@ -1856,7 +1856,7 @@ subroutine contents_netcdf_diag_(odiag)
     call nc_diag_metadata_to_single("Prep_QC_Mark",data(iqc,i))
     call nc_diag_metadata_to_single("Setup_QC_Mark",data(iqt,i))
     call nc_diag_metadata_to_single("Prep_Use_Flag",data(iuse,i))
-    call nc_diag_metadata_to_single("Virtual_Temperature",nint(data(iqt,i)))
+    call nc_diag_metadata("Virtual_Temperature_Flag",nint(data(iqt,i)))
     if(muse(i)) then
        call nc_diag_metadata_to_single("Analysis_Use_Flag", one)
     else