Skip to content

use mpi instead of mpi_f08 #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
guoqing-noaa wants to merge 1 commit into
base: gsl/MPAS_stoch_physics
Choose a base branch
from
Open

use mpi instead of mpi_f08 #3

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions mpi_wrapper.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
module mpi_wrapper

use mpi_f08
use mpi

implicit none

Expand All @@ -14,7 +14,7 @@ module mpi_wrapper
integer, save :: mype = -999
integer, save :: npes = -999
integer, save :: root = -999
type(MPI_Comm), save :: comm
integer, save :: comm
logical, save :: initialized = .false.

integer :: ierror
Expand Down Expand Up @@ -79,7 +79,7 @@ end function is_rootpe

subroutine mpi_wrapper_initialize(mpiroot, mpicomm)
integer, intent(in) :: mpiroot
type(MPI_Comm), intent(in) :: mpicomm
integer, intent(in) :: mpicomm
if (initialized) return
root = mpiroot
comm = mpicomm
Expand All @@ -93,7 +93,7 @@ subroutine mpi_wrapper_finalize()
mype = -999
npes = -999
root = -999
comm%mpi_val = -999
comm = -999
initialized = .false.
end subroutine mpi_wrapper_finalize

Expand Down
4 changes: 2 additions & 2 deletions stochastic_physics.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
!>@brief The module 'stochastic_physics' is for initialization and running of
!! the stochastic physics random pattern generators
module stochastic_physics
use mpi_f08
use mpi
use kinddef, only : kind_phys, kind_dbl_prec
use mpas_pool_routines

Expand Down Expand Up @@ -39,7 +39,7 @@ subroutine init_stochastic_physics(domain, levs, blksz, dtp, sppt_amp, &

type(domain_type),intent(inout) :: domain
integer, intent(in) :: levs, mpiroot
type(MPI_Comm), intent(in) :: mpicomm
integer, intent(in) :: mpicomm
integer, intent(in) :: blksz(:)
real(kind=kind_phys), intent(in) :: dtp
real(kind=kind_phys), intent(out) :: sppt_amp
Expand Down
4 changes: 2 additions & 2 deletions stochastic_physics_mpas.F
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
module mpas_stochastic_physics
use kinddef, only: kind_phys
use mpi_f08
use mpi
use mpas_pool_routines
implicit none

Expand Down Expand Up @@ -86,7 +86,7 @@ subroutine stochastic_physics_pattern_init (domain, ierr)
!local variables:
type(block_type),pointer:: block
integer :: maxblk, blk_sz(16)
type(MPI_comm) :: mpi_comm
integer :: mpi_comm
integer :: mpi_root, pid
integer :: iret
real(kind=kind_phys):: sppt_amp, dtp
Expand Down