Changeset 938 for LMDZ4/trunk/libf/phylmd/thermcell_dq.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_dq.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/thermcell_dq.F90

@@ -3 +3 @@
       implicit none
 
+#include "iniprint.h"
 !=======================================================================
 !
@@ -26 +27 @@
 !   calcul du detrainement
 
-      if (lev_out.ge.1) print*,'Q2 THERMCEL_DQ 0'
+      if (prt_level.ge.1) print*,'Q2 THERMCEL_DQ 0'
 
       do k=1,nlay