Follow standard for use statements, match end if NOAA-EMC#447

hu5970 · May 11, 2023 · d846eb2 · d846eb2
1 parent 3fcb166
commit d846eb2
Show file tree

Hide file tree

Showing 19 changed files with 29 additions and 29 deletions.
diff --git a/src/gsi/genstats_gps.f90 b/src/gsi/genstats_gps.f90
@@ -754,7 +754,7 @@ end subroutine contents_binary_diag_
 subroutine contents_netcdf_diag_
   use sparsearr, only: sparr2, readarray, fullarray
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   integer(i_kind),dimension(miter) :: obsdiag_iuse
   integer(i_kind)                  :: obstype, obssubtype
   type(sparr2) :: dhx_dx

diff --git a/src/gsi/read_prepbufr.f90 b/src/gsi/read_prepbufr.f90
@@ -708,7 +708,7 @@ subroutine read_prepbufr(nread,ndata,nodata,infile,obstype,lunout,twindin,sis,&
               rstation_id=hdr(4)
               kx = kx + 18
            end if
-        endif
+        end if
 
         if(twodvar_regional)then
 !          If running in 2d-var (surface analysis) mode, check to see if observation
@@ -985,15 +985,15 @@ subroutine read_prepbufr(nread,ndata,nodata,infile,obstype,lunout,twindin,sis,&
                        end if
                     end if
                  end if
-              endif
+              end if
 
               !Prevent integer overflow by nint
               if(hdr(8) < huge_i_kind) then
                  if (id_ship .and. (kx==180) .and.  (idnint(hdr(8))==522 .or. idnint(hdr(8))==523) ) then
                     rstation_id=hdr(1)
                     kx = kx + 18
                  end if
-              endif
+              end if
 !
 
 !             check VAD subtype. 1--old, 2--new, other--old 
@@ -1650,8 +1650,8 @@ subroutine read_prepbufr(nread,ndata,nodata,infile,obstype,lunout,twindin,sis,&
                              qcmark(3,k)=min(tobaux(2,k,j),qcmark_huge)
                              tqm(k)=idnint(qcmark(3,k))
                              exit
-                          endif
-                       endif
+                          end if
+                       end if
                        if (tpc(k,j)==vtcd) then
                           obsdat(3,k)=tobaux(1,k,j+1)
                           qcmark(3,k)=min(tobaux(2,k,j+1),qcmark_huge)
@@ -2143,7 +2143,7 @@ subroutine read_prepbufr(nread,ndata,nodata,infile,obstype,lunout,twindin,sis,&
                        oelev=windsensht+selev !windsensht: read in from prepbufr
                     else
                        oelev=r10+selev
-                    endif
+                    end if
                     if (kx == 280 )then
                        !Prevent integer overflow by nint
                        if(hdr(8) < huge_i_kind) then
@@ -2153,13 +2153,13 @@ subroutine read_prepbufr(nread,ndata,nodata,infile,obstype,lunout,twindin,sis,&
                              oelev=r20
                           end if
                        end if
-                    endif
+                    end if
 
                     if (kx == 282) oelev=r20+selev
                     if (kx == 285 .or. kx == 289 .or. kx == 290) then
                        oelev=selev
                        selev=zero
-                    endif
+                    end if
                  else
                     if((kx >= 221 .and.  kx <= 229) &
                        .and. selev >= oelev) oelev=r10+selev

diff --git a/src/gsi/setupaod.f90 b/src/gsi/setupaod.f90
@@ -827,7 +827,7 @@ subroutine contents_netcdf_diag_
       ! subroutine to write contents to netcdf diag files
       ! original: pagowski
       ! modified: 2019-03-21 - martin - cleaned up to fit GSI coding norms
-      use screen_to_ncdiag
+      use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
       implicit none
       character(7),parameter     :: obsclass = '    aod'
       character(128) :: fieldname

diff --git a/src/gsi/setupdbz.f90 b/src/gsi/setupdbz.f90
@@ -1921,7 +1921,7 @@ subroutine contents_binary_dirZDA_diag_(odiag)
   end subroutine contents_binary_dirZDA_diag_
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '    dbz'

diff --git a/src/gsi/setupdw.f90 b/src/gsi/setupdw.f90
@@ -896,7 +896,7 @@ subroutine contents_binary_diag_(odiag)
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '     dw'

diff --git a/src/gsi/setuplight.f90 b/src/gsi/setuplight.f90
@@ -1615,7 +1615,7 @@ end subroutine contents_binary_diag_
 subroutine contents_netcdf_diag_(odiag)
 ! Observation class
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
   character(7),parameter     :: obsclass = '     light'
   real(r_single),parameter::     missing = -9.99e9_r_single

diff --git a/src/gsi/setuplwcp.f90 b/src/gsi/setuplwcp.f90
@@ -838,7 +838,7 @@ end subroutine contents_binary_diag_
 
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '   lwcp'

diff --git a/src/gsi/setupoz.f90 b/src/gsi/setupoz.f90
@@ -152,7 +152,7 @@ subroutine setupozlay(obsLL,odiagLL,lunin,mype,stats_oz,nlevs,nreal,nobs,&
   use m_dtime, only: dtime_setup, dtime_check
   use gsi_bundlemod, only : gsi_bundlegetpointer
   use gsi_metguess_mod, only : gsi_metguess_get,gsi_metguess_bundle
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   implicit none
 
 ! !INPUT PARAMETERS:
@@ -1662,7 +1662,7 @@ subroutine contents_binary_diag_(odiag)
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '  ozlev'

diff --git a/src/gsi/setupps.f90 b/src/gsi/setupps.f90
@@ -882,7 +882,7 @@ subroutine contents_binary_diag_(odiag)
 
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '     ps'

diff --git a/src/gsi/setuppw.f90 b/src/gsi/setuppw.f90
@@ -711,7 +711,7 @@ subroutine contents_binary_diag_(odiag)
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
 ! use model surface pressure, so PW can be used in EnKF analysis

diff --git a/src/gsi/setupq.f90 b/src/gsi/setupq.f90
@@ -1262,7 +1262,7 @@ end subroutine contents_binary_diagp_
 
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '      q'
@@ -1336,7 +1336,7 @@ end subroutine contents_netcdf_diag_
 
   subroutine contents_netcdf_diagp_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '      q'

diff --git a/src/gsi/setuprad.f90 b/src/gsi/setuprad.f90
@@ -2543,7 +2543,7 @@ subroutine contents_binary_diag_(odiags,idv,iob)
 
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiags,idv,iob)
-    use screen_to_ncdiag
+    use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
     type(fptr_obsdiagNode),dimension(:),intent(in):: odiags
     integer(i_kind),intent(in):: idv,iob
 

diff --git a/src/gsi/setuprw.f90 b/src/gsi/setuprw.f90
@@ -1312,7 +1312,7 @@ subroutine contents_binary_diag_(odiag)
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '     rw'

diff --git a/src/gsi/setupspd.f90 b/src/gsi/setupspd.f90
@@ -942,7 +942,7 @@ subroutine contents_binary_diag_(odiag)
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '    spd'

diff --git a/src/gsi/setupsst.f90 b/src/gsi/setupsst.f90
@@ -576,7 +576,7 @@ subroutine contents_binary_diag_(odiag)
         endif
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '    sst'

diff --git a/src/gsi/setupswcp.f90 b/src/gsi/setupswcp.f90
@@ -883,7 +883,7 @@ end subroutine contents_binary_diag_
 
   subroutine contents_netcdf_diag_(odiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '   swcp'

diff --git a/src/gsi/setupt.f90 b/src/gsi/setupt.f90
@@ -1663,7 +1663,7 @@ subroutine contents_binary_diagp_(odiag)
   end subroutine contents_binary_diagp_
 
   subroutine contents_netcdf_diag_(odiag)
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
     type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '      t'
@@ -1760,7 +1760,7 @@ subroutine contents_netcdf_diag_(odiag)
   end subroutine contents_netcdf_diag_
 
   subroutine contents_netcdf_diagp_(odiag)
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
     type(obs_diag),pointer,intent(in):: odiag
 ! Observation class
   character(7),parameter     :: obsclass = '      t'

diff --git a/src/gsi/setuptcp.f90 b/src/gsi/setuptcp.f90
@@ -684,7 +684,7 @@ subroutine contents_binary_diag_(odiag)
 
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(odiag)
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   use constants, only: r_missing
   type(obs_diag),pointer,intent(in):: odiag
 ! Observation class

diff --git a/src/gsi/setupw.f90 b/src/gsi/setupw.f90
@@ -1780,7 +1780,7 @@ subroutine contents_binary_diag_(udiag,vdiag)
   end subroutine contents_binary_diag_
   subroutine contents_netcdf_diag_(udiag,vdiag)
   use constants, only: r_missing
-  use screen_to_ncdiag
+  use screen_to_ncdiag, only: screen_to_single_nc_diag_metadata
   type(obs_diag),pointer,intent(in):: udiag,vdiag
 ! Observation class
   character(7),parameter     :: obsclass = '     uv'