Fix a but in setupps.

NOAA-EMC · Oct 6, 2023 · 1665363 · 1665363
1 parent 25306a2
commit 1665363
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/src/gsi/gsi_rfv3io_mod.f90 b/src/gsi/gsi_rfv3io_mod.f90
@@ -2610,9 +2610,6 @@ subroutine gsi_fv3ncdf_readuv(grd_uv,ges_u,ges_v,fv3filenamegin)
        members(mm1) = mype
     endif
 
-    write(6,115)mype,kbgn,kend,procuse
-115 format('gsi_fv3ncdf_readuv: mype ',i6,' has kbgn,kend= ',2(i6,1x),' set procuse ',l7)
-
     call mpi_allreduce(members,members_read,npe,mpi_integer,mpi_max,mpi_comm_world,ierror)
 
     nread=0

diff --git a/src/gsi/setupps.f90 b/src/gsi/setupps.f90
@@ -904,7 +904,7 @@ subroutine contents_netcdf_diag_(odiag)
            if(muse(i)) then
               call nc_diag_metadata("Analysis_Use_Flag",    1.0_r_single           )
            else
-              call nc_diag_metadata("Analysis_Use_Flag",    1.0_r_single           )
+              call nc_diag_metadata("Analysis_Use_Flag",   -1.0_r_single           )
            endif
 
            call nc_diag_metadata_to_single("Errinv_Input",  errinv_input           )