fix compilation errors in YSU PBL and FA MP

NCAR · Aug 29, 2024 · d1695fa · d1695fa
1 parent 965a00c
commit d1695fa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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
 !