Replace all occurences of 'include mpif.h' with 'use mpi'

ufs-community · Sep 28, 2020 · ee918e4 · ee918e4
1 parent 790a760
commit ee918e4
Show file tree

Hide file tree

Showing 10 changed files with 14 additions and 14 deletions.
diff --git a/sorc/chgres_cube.fd/atmosphere.F90 b/sorc/chgres_cube.fd/atmosphere.F90
@@ -118,7 +118,7 @@ subroutine atmosphere_driver(localpet)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  integer, intent(in)                :: localpet
 
@@ -1146,7 +1146,7 @@ SUBROUTINE VINTG
 !
  IMPLICIT NONE
 
- include 'mpif.h'
+ use mpi
 
  REAL(ESMF_KIND_R8), PARAMETER   :: DLTDZ=-6.5E-3*287.05/9.80665
  REAL(ESMF_KIND_R8), PARAMETER   :: DLPVDRT=-2.5E6/461.50

diff --git a/sorc/chgres_cube.fd/chgres.F90 b/sorc/chgres_cube.fd/chgres.F90
@@ -34,7 +34,7 @@ program chgres
 ! Initialize mpi and esmf environment.
 !-------------------------------------------------------------------------
 
- include 'mpif.h'
+ use mpi
 
  call mpi_init(ierr)
 

diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
@@ -1730,7 +1730,7 @@ subroutine read_input_atm_gaussian_netcdf_file(localpet)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  integer, intent(in)               :: localpet
 
@@ -2113,7 +2113,7 @@ subroutine read_input_atm_tiled_history_file(localpet)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  integer, intent(in)             :: localpet
 

diff --git a/sorc/chgres_cube.fd/model_grid.F90 b/sorc/chgres_cube.fd/model_grid.F90
@@ -609,7 +609,7 @@ subroutine define_input_grid_gfs_grib2(localpet, npets)
 
  implicit none
 
- include "mpif.h"
+ use mpi
 
  integer, intent(in)              :: localpet, npets
 

diff --git a/sorc/chgres_cube.fd/search_util.f90 b/sorc/chgres_cube.fd/search_util.f90
@@ -38,7 +38,7 @@ subroutine search (field, mask, idim, jdim, tile, field_num, latitude)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  integer, intent(in)               :: idim, jdim, tile, field_num
  integer(esmf_kind_i8), intent(in) :: mask(idim,jdim)

diff --git a/sorc/chgres_cube.fd/surface.F90 b/sorc/chgres_cube.fd/surface.F90
@@ -301,7 +301,7 @@ subroutine interp(localpet)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  integer, intent(in)                :: localpet
 

diff --git a/sorc/chgres_cube.fd/utils.f90 b/sorc/chgres_cube.fd/utils.f90
@@ -2,7 +2,7 @@ subroutine error_handler(string, rc)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  character(len=*), intent(in)    :: string
 
@@ -26,7 +26,7 @@ subroutine netcdf_err( err, string )
  character(len=256) :: errmsg
  integer :: iret
 
- include "mpif.h"
+ use mpi
 
  if( err.EQ.NF90_NOERR )return
  errmsg = NF90_STRERROR(err)

diff --git a/sorc/sfc_climo_gen.fd/interp.F90 b/sorc/sfc_climo_gen.fd/interp.F90
@@ -26,7 +26,7 @@ subroutine interp(localpet, method, input_file)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  character(len=*), intent(in)       :: input_file
 
@@ -281,7 +281,7 @@ subroutine adjust_for_landice(field, vegt, idim, jdim, field_ch)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  character(len=*), intent(in)      :: field_ch
 

diff --git a/sorc/sfc_climo_gen.fd/model_grid.F90 b/sorc/sfc_climo_gen.fd/model_grid.F90
@@ -83,7 +83,7 @@ subroutine define_model_grid(localpet, npets)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  integer, intent(in)              :: localpet, npets
 

diff --git a/sorc/sfc_climo_gen.fd/source_grid.F90 b/sorc/sfc_climo_gen.fd/source_grid.F90
@@ -83,7 +83,7 @@ subroutine define_source_grid(localpet, npets, input_file)
 
  implicit none
 
- include 'mpif.h'
+ use mpi
 
  character(len=*), intent(in)     :: input_file
-Original file line number
+Diff line change
@@ Expand Up / @@ -609,7 +609,7 @@ subroutine define_input_grid_gfs_grib2(localpet, npets) @@
      implicit none
-     include "mpif.h"
+     use mpi
      integer, intent(in)              :: localpet, npets
@@ Expand Down @@