Changeset 1836 for LMDZ5/trunk/libf


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/concvl.F

    r1827 r1836  
    354354      if (iflag_con.eq.30) then
    355355
    356       print *, '-> cv_driver'      !jyg
     356!      print *, '-> cv_driver'      !jyg
    357357      CALL cv_driver(klon,klev,klevp1,ntra,iflag_con,
    358358     :              t,q,qs,u,v,tra,
     
    365365     $              evap,ep,epmlmMm,eplaMm,                    !RomP
    366366     $              wdtrainA,wdtrainM)                         !RomP
    367       print *, 'cv_driver ->'      !jyg
     367!      print *, 'cv_driver ->'      !jyg
    368368c
    369369      DO i = 1,klon
  • LMDZ5/trunk/libf/phylmd/cv_driver.F

    r1774 r1836  
    341341! --- SET CONSTANTS AND PARAMETERS
    342342!-------------------------------------------------------------------
    343       print *, '-> cv_driver'      !jyg
     343!      print *, '-> cv_driver'      !jyg
    344344c -- set simulation flags:
    345345c   (common cvflag)
     
    494494 400  continue
    495495
    496          print*,'cv_driver : klon, ncum = ',len,ncum
     496!         print*,'cv_driver : klon, ncum = ',len,ncum
    497497
    498498      IF (ncum.gt.0) THEN
     
    6966969999  continue
    697697
    698       print *, 'fin cv_driver ->'      !jyg
     698!      print *, 'fin cv_driver ->'      !jyg
    699699      return
    700700      end
  • LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

    r1822 r1836  
    578578  IF (iflag_vdf_trac==1) THEN
    579579     DO it=1, nbtr
    580         print*,'trac pbl ',it,pbl_flg(it)
     580        if (prt_level > 20) write(lunout,*)'trac pbl ',it,pbl_flg(it)
    581581        IF( pbl_flg(it) /= 0 ) THEN
    582582           CALL cltrac(pdtphys, coefh,t_seri,       &
Note: See TracChangeset for help on using the changeset viewer.