Changeset 1836 for LMDZ5/trunk/libf

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

Location:

LMDZ5/trunk/libf/phylmd

Files:

• concvl.F (modified) (2 diffs)
• cv_driver.F (modified) (3 diffs)
• phytrac_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/concvl.F

@@ -354 +354 @@
       if (iflag_con.eq.30) then
 
-      print *, '-> cv_driver'      !jyg
+!      print *, '-> cv_driver'      !jyg
       CALL cv_driver(klon,klev,klevp1,ntra,iflag_con,
      :              t,q,qs,u,v,tra,
@@ -365 +365 @@
      $              evap,ep,epmlmMm,eplaMm,                    !RomP
      $              wdtrainA,wdtrainM)                         !RomP
-      print *, 'cv_driver ->'      !jyg
+!      print *, 'cv_driver ->'      !jyg
 c
       DO i = 1,klon

LMDZ5/trunk/libf/phylmd/cv_driver.F

@@ -341 +341 @@
 ! --- SET CONSTANTS AND PARAMETERS
 !-------------------------------------------------------------------
-      print *, '-> cv_driver'      !jyg
+!      print *, '-> cv_driver'      !jyg
 c -- set simulation flags:
 c   (common cvflag)
@@ -494 +494 @@
  400  continue
 
-         print*,'cv_driver : klon, ncum = ',len,ncum
+!         print*,'cv_driver : klon, ncum = ',len,ncum
 
       IF (ncum.gt.0) THEN
@@ -696 +696 @@
 9999  continue
 
-      print *, 'fin cv_driver ->'      !jyg
+!      print *, 'fin cv_driver ->'      !jyg
       return
       end

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,       &