Ignore:
Timestamp:
Mar 26, 2009, 12:57:31 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Menage sur les impressions intempestives par transformation des

print*,

en

if (prt_level > ??) write(lunout,*)

LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

    r1114 r1134  
    537537
    538538c$OMP MASTER
    539       print*,"Iteration No",True_itau
     539      IF (prt_level>9)WRITE(lunout,*)"Iteration No",True_itau
    540540
    541541
    … …  
    673673c$OMP MASTER
    674674         call suspend_timer(timer_caldyn)
    675          print*,'Entree dans la physique : Iteration No ',true_itau
     675         WRITE(lunout,*)'Entree dans la physique : Iteration No ',      &
     676     &                   true_itau
    676677c$OMP END MASTER
    677678
Note: See TracChangeset for help on using the changeset viewer.