Changeset 2110 for LMDZ5/trunk/libf/phylmd/cv3_routines.F90

Timestamp:

Aug 27, 2014, 5:54:44 PM (10 years ago)

Author:

lguez

Message:

Abort if surface pressure becomes negative. The call to abort_gcm
already was in the sequential version but not in dyn3dpar nor in
dyn3dmem. In dyn3dmem, there is a variable checksum_all, which is
always true. The call to MPI_ALLREDUCE which should update
checksum_all is commented out. I do not know why (performance?).

Non-ASCII characters in comments are not always rendered properly and
they risk being lost. See revision [1740].

Bug fix in procedure convect2: the dimension len must be declared
before the array idcum which has this dimension. Bug fix in procedure
icefrac: the dimensions nl and len must be declared before the arrays
which have these dimensions.

File:

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

LMDZ5/trunk/libf/phylmd/cv3_routines.F90

@@ -994 +994 @@
 ! Calcul de la quantité d'eau sous forme de glace
 ! --------------------------------------------------------------------
+  INTEGER nl, len
   REAL qi(len, nl)
   REAL t(len, nl), clw(len, nl)
   REAL fracg
-  INTEGER nl, len, k, i
+  INTEGER k, i
 
   DO k = 3, nl