Changeset 4600 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

Timestamp:

Jun 30, 2023, 8:18:43 PM (11 months ago)

Author:

yann meurdesoif

Message:

Suppress CPP_MPI key usage in source code. MPI wrappers is used to supress missing symbol if the mpi library is not linked

YM

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

@@ -46 +46 @@
   USE comvert_mod, ONLY: pa, preff, pressure_exner
   USE temps_mod, ONLY: calend, day_ini, dt
+  USE lmdz_mpi
 
   IMPLICIT NONE
@@ -55 +56 @@
   include "comgeom2.h"
   include "iniprint.h"
-#ifdef CPP_MPI
-  include 'mpif.h'
-#endif
   
   REAL               :: masque(iip1,jjp1)             !--- CONTINENTAL MASK
@@ -255 +253 @@
   CALL xios_finalize
 #endif
-#ifdef CPP_MPI
   IF (using_mpi) call MPI_FINALIZE(ierr)
-#endif
 #endif