Changeset 938 for LMDZ4/trunk/libf/phylmd/thermcell_env.F90

Timestamp:

Mar 31, 2008, 6:14:45 PM (16 years ago)

Author:

lmdzadmin

Message:

Enleve prints par defaut
IM

File:

• LMDZ4/trunk/libf/phylmd/thermcell_env.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/thermcell_env.F90

@@ -12 +12 @@
 #include "YOETHF.h"
 #include "FCTTRE.h"      
+#include "iniprint.h"
 
       INTEGER ngrid,nlay
@@ -113 +114 @@
 !   ---------------------------------------------------
 
-      if (lev_out.ge.1) print*,'0 OK convect8'
+      if (prt_level.ge.1) print*,'0 OK convect8'
 
       DO 1010 l=1,nlay