diff --git a/physics/MP/Ferrier_Aligo/module_MP_FER_HIRES.F90 b/physics/MP/Ferrier_Aligo/module_MP_FER_HIRES.F90 index 380ba9de5..7d23ad5d4 100644 --- a/physics/MP/Ferrier_Aligo/module_MP_FER_HIRES.F90 +++ b/physics/MP/Ferrier_Aligo/module_MP_FER_HIRES.F90 @@ -109,7 +109,7 @@ MODULE MODULE_MP_FER_HIRES !----------------------------------------------------------------------------- #ifdef MPI - USE mpi + USE mpi_f08 #endif USE machine !MZ @@ -2448,7 +2448,7 @@ SUBROUTINE FERRIER_INIT_hr (GSMDT,MPI_COMM_COMP,MPIRANK,MPIROOT,THREADS, & !----------------------------------------------------------------------- ! #ifdef MPI - use mpi + use mpi_f08 #endif IMPLICIT NONE ! @@ -2466,7 +2466,7 @@ SUBROUTINE FERRIER_INIT_hr (GSMDT,MPI_COMM_COMP,MPIRANK,MPIROOT,THREADS, & REAL, INTENT(IN) :: GSMDT INTEGER, INTENT(IN) :: MPIRANK INTEGER, INTENT(IN) :: MPIROOT - INTEGER, INTENT(IN) :: MPI_COMM_COMP + TYPE(MPI_Comm), INTENT(IN) :: MPI_COMM_COMP INTEGER, INTENT(IN) :: THREADS CHARACTER(LEN=*), INTENT(OUT) :: errmsg INTEGER, INTENT(OUT) :: errflg diff --git a/physics/PBL/YSU/ysuvdif.F90 b/physics/PBL/YSU/ysuvdif.F90 index ad28256c0..09ba28625 100644 --- a/physics/PBL/YSU/ysuvdif.F90 +++ b/physics/PBL/YSU/ysuvdif.F90 @@ -101,7 +101,7 @@ subroutine ysuvdif_run(im,km,ux,vx,tx,qx,p2d,p2di,pi2d,karman, & intent(inout) :: utnp,vtnp,ttnp real(kind=kind_phys), dimension( :,:,: ) , & intent(inout) :: qtnp - real(kind=kind_phys), optional, intent(inout), optional :: dtend(:,:,:) + real(kind=kind_phys), intent(inout), optional :: dtend(:,:,:) integer, intent(in) :: dtidx(:,:), ntqv, index_of_temperature, & index_of_x_wind, index_of_y_wind, index_of_process_pbl !