Fix variable types in setupoz.f90

ADCollard · Aug 6, 2024 · 47a6db4 · 47a6db4
1 parent 235018e
commit 47a6db4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/gsi/setupoz.f90 b/src/gsi/setupoz.f90
@@ -625,10 +625,10 @@ subroutine setupozlay(obsLL,odiagLL,lunin,mype,stats_oz,nlevs,nreal,nobs,&
                  call nc_diag_metadata_to_single("Latitude",        data(ilate,i))       
                  call nc_diag_metadata_to_single("Longitude",       data(ilone,i))       
                  call nc_diag_metadata_to_single("Time",            data(itime,i)-time_offset) 
-                 call nc_diag_metadata("Total_Ozone_Error_Flag", ierror_toq )
-                 call nc_diag_metadata("Profile_Ozone_Error_Flag", ierror_poq )
+                 call nc_diag_metadata("Total_Ozone_Error_Flag", sngl(ierror_toq) )
+                 call nc_diag_metadata("Profile_Ozone_Error_Flag", sngl(ierror_poq) )
                  call nc_diag_metadata_to_single("Reference_Pressure",(pobs(k)*r100))
-                 call nc_diag_metadata("Analysis_Use_Flag",      iouse(k)           )
+                 call nc_diag_metadata("Analysis_Use_Flag",   sngl(iouse(k))     )
                  call nc_diag_metadata_to_single("Observation",(ozobs(k)))
                  call nc_diag_metadata_to_single("Inverse_Observation_Error",(errorinv))
                  call nc_diag_metadata_to_single("Input_Observation_Error", (error(k)))