Changeset 1575 for LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

Timestamp:

Sep 21, 2011, 3:57:48 PM (13 years ago)

Author:

jghattas

Message:

• Added suffix _mpi_rank to lmdz.out text file. Each processus now write into seperate file but only if lunout/=6 (lunout is set in run.def).

• Change some print* into write(lunout,*)

• phytrac.F90 : always include ini_histrac and write_histrac. The file histrac.nc is written if ecrit_tra> 0 (set in physiq.def). Change default value of ecrit_tra into 0.

File:

• LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

@@ -189 +189 @@
 
       INTEGER :: true_itau
-      LOGICAL :: verbose=.true.
       INTEGER :: iapptrac
       INTEGER :: AdjustCount
@@ -407 +406 @@
            call allgather_timer_average
 
-        if (Verbose) then
+        if (prt_level > 9) then
         
         print *,'*********************************'