use integer for setupozlev Analysis_Use_Flag (NOAA-EMC#623)

RussTreadon-NOAA · Sep 21, 2023 · 45eff70 · 45eff70
1 parent 1b4cb7f
commit 45eff70
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/gsi/setupoz.f90 b/src/gsi/setupoz.f90
@@ -1720,6 +1720,7 @@ subroutine contents_netcdf_diag_(odiag)
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '  ozlev'
+  integer(i_kind),parameter  :: ione = 1
   real(r_kind),dimension(miter) :: obsdiag_iuse
            call nc_diag_metadata_to_single("Latitude",           data(ilate,i)                  )
            call nc_diag_metadata_to_single("Longitude",          data(ilone,i)                  )
@@ -1731,9 +1732,9 @@ subroutine contents_netcdf_diag_(odiag)
            call nc_diag_metadata_to_single("Obs_Minus_Forecast_unadjusted",ozone_inv            )
            call nc_diag_metadata_to_single("Reference_Pressure", preso3l*r100                   ) ! Pa
            if(luse(i)) then
-             call nc_diag_metadata_to_single("Analysis_Use_Flag",  one                          )
+             call nc_diag_metadata("Analysis_Use_Flag",  ione                                   )
            else
-             call nc_diag_metadata_to_single("Analysis_Use_Flag", -one                          )
+             call nc_diag_metadata("Analysis_Use_Flag", -ione                                   )
            endif
 
            call nc_diag_metadata_to_single("Input_Observation_Error",obserror                   )