Ignore:
Timestamp:
Apr 10, 2011, 10:13:07 AM (13 years ago)
Author:
Laurent Fairhead
Message:

Encore des prints intempestifs a éliminer

Getting rid of some superfluous print statements

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/fisrtilp.F90

    r1492 r1506  
    2525  include "tracstoke.h"
    2626  include "fisrtilp.h"
     27  include "iniprint.h"
     28
    2729  !
    2830  ! Arguments:
    … …  
    142144  zdelq=0.0
    143145
    144   print*,'NUAGES4 A. JAM'
     146  if (prt_level>9)write(lunout,*)'NUAGES4 A. JAM'
    145147  IF (appel1er) THEN
    146148     !
Note: See TracChangeset for help on using the changeset viewer.