Ignore:
Timestamp:
Jan 28, 2011, 3:32:46 PM (14 years ago)
Author:
Laurent Fairhead
Message:

Un peu de ménage sur les prints

A little cleanup on the prints

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1411 r1479  
    2525#include "tracstoke.h"
    2626#include "fisrtilp.h"
     27#include "iniprint.h"
    2728c
    2829c Arguments:
    … …  
    142143      zdelq=0.0
    143144     
    144       print*,'NUAGES4 A. JAM'
     145      if (prt_level>9)write(lunout,*)'NUAGES4 A. JAM'
    145146      IF (appel1er) THEN
    146147c
Note: See TracChangeset for help on using the changeset viewer.