Changeset 1037 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

Oct 28, 2008, 6:01:41 PM (16 years ago)

Author:

lmdzadmin

Message:

Correction test coherence flags Tiedtke
FH/IM

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1255 +1255 @@
       print*,'CYCLE_DIURNE', cycle_diurne
 c
-      IF (iflag_con.EQ.2.AND.iflag_cldcon.NE.-1) THEN
-         abort_message = 'Tiedtke convection needs iflag_cldcon=-1 '
+      IF (iflag_con.EQ.2.AND.iflag_cldcon.GT.-1) THEN
+         abort_message = 'Tiedtke needs iflag_cldcon=-2 or -1'
          CALL abort_gcm (modname,abort_message,1)
       ENDIF