Changeset 2353

Timestamp:

Aug 26, 2015, 2:47:43 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Correction for ce0l to compile and work in serial mode.
EM

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

@@ -62 +62 @@
   REAL, ALLOCATABLE  :: lat_omask(:,:), dlat_omask(:), ocetmp (:,:)
   REAL               :: date, lev(1)
+#ifndef CPP_PARA
+! for iniphysiq in serial mode
+  INTEGER,PARAMETER :: mpi_rank=0
+  INTEGER :: distrib_phys(mpi_rank:mpi_rank)=(jjm-1)*iim+2
+#endif
 !-------------------------------------------------------------------------------
   modname="ce0l"