Changeset 1836 for LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

Timestamp:

Aug 8, 2013, 6:39:43 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Suppressions print de debuggage
LF

---

Getting rid of some debugging prints
LF

File:

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

LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

@@ -578 +578 @@
   IF (iflag_vdf_trac==1) THEN
      DO it=1, nbtr
-        print*,'trac pbl ',it,pbl_flg(it)
+        if (prt_level > 20) write(lunout,*)'trac pbl ',it,pbl_flg(it)
         IF( pbl_flg(it) /= 0 ) THEN
            CALL cltrac(pdtphys, coefh,t_seri,       &