- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/dynphy_lonlat/phylmd/ce0l.F90
r4482 r4727 36 36 USE mod_hallo, ONLY: init_mod_hallo 37 37 USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys 38 #ifdef CPP_XIOS 39 USE xios, only: xios_finalize 40 #endif 38 USE lmdz_xios, only: using_xios, xios_finalize 41 39 #endif 42 40 … … 46 44 USE comvert_mod, ONLY: pa, preff, pressure_exner 47 45 USE temps_mod, ONLY: calend, day_ini, dt 46 USE lmdz_mpi 48 47 49 48 IMPLICIT NONE … … 55 54 include "comgeom2.h" 56 55 include "iniprint.h" 57 #ifdef CPP_MPI58 include 'mpif.h'59 #endif60 56 61 57 REAL :: masque(iip1,jjp1) !--- CONTINENTAL MASK … … 252 248 #ifdef CPP_PARA 253 249 END IF 254 #ifdef CPP_XIOS 255 CALL xios_finalize 256 #endif 257 #ifdef CPP_MPI 250 IF (using_xios) CALL xios_finalize 258 251 IF (using_mpi) call MPI_FINALIZE(ierr) 259 #endif260 252 #endif 261 253
Note: See TracChangeset
for help on using the changeset viewer.