fix name clash

NOAA-EMC · Mar 25, 2024 · 432220d · 432220d
1 parent 9f7c049
commit 432220d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/enkf/gridinfo_nmmb.f90 b/src/enkf/gridinfo_nmmb.f90
@@ -1,6 +1,7 @@
 module gridinfo
 
-use mpisetup
+use mpisetup, only: nproc, mpi_integer, mpi_real4
+use mpimod, only: mpi_comm_world
 use params, only: datapath,nlevs,datestring,&
                   nmmb,regional,nlons,nlats,nbackgrounds,fgfileprefixes
 use kinds, only: r_kind, i_kind, r_double, r_single

diff --git a/src/enkf/gridinfo_wrf.f90 b/src/enkf/gridinfo_wrf.f90
@@ -32,12 +32,13 @@ module gridinfo
 
   ! Define associated modules
 
-  use constants, only: rearth_equator, omega, pi, deg2rad, zero, rad2deg,    &
+  use constants, only: rearth_equator, omega, pi, deg2rad, zero, one, rad2deg, &
                        rearth,max_varname_length
   use kinds,     only: i_kind, r_kind, r_single, i_long, r_double
   use params,    only: datapath, nlevs, nlons, nlats,           &
                        arw, nmm
-  use mpisetup
+  use mpisetup, only: nproc, mpi_integer, mpi_real4,mpi_status
+  use mpimod, only: mpi_comm_world
   use netcdf_io
 
   implicit none