Changeset 972 for LMDZ4/trunk/libf/phylmd/cv3a_compress.F

Timestamp:

Jun 19, 2008, 12:24:22 PM (16 years ago)

Author:

lmdzadmin

Message:

Version thermique FH/CRio
Ajout tests cas physiques non pris en comptes et ajout/enleve prints
Nouvelle routine thermcell_flux2.F90
IM

File:

• LMDZ4/trunk/libf/phylmd/cv3a_compress.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/cv3a_compress.F

@@ -123 +123 @@
 
       if (nn.ne.ncum) then
-         print*,'strange! nn not equal to ncum: ',nn,ncum
+         print*,'WARNING nn not equal to ncum: ',nn,ncum
          stop
       endif
@@ -150 +150 @@
  150  continue
 
+      if (nn.ne.ncum) then
+         print*,'WARNING nn not equal to ncum: ',nn,ncum
+         stop
+      endif
+
       RETURN
       END