Changeset 1575 for LMDZ5/trunk/libf/phylmd/concvl.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/phylmd/concvl.F (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/concvl.F

@@ -238 +238 @@
 cc$$$         close (56)
 c
-         print*, 'supcrit1, supcrit2' ,supcrit1, supcrit2
+         IF (prt_level .ge. 10) 
+     &       WRITE(lunout,*) 'supcrit1, supcrit2' ,supcrit1, supcrit2
 C
 C===========================================================================
@@ -370 +371 @@
       endif  
 C------------------------------------------------------------------
-      print *,' cva_driver -> cbmf,plcl,plfc,wbeff ',
-     .          cbmf(1),plcl(1),plfc(1),wbeff(1)
+      IF (prt_level .ge. 10)
+     .   WRITE(lunout,*) ' cva_driver -> cbmf,plcl,plfc,wbeff ',
+     .                     cbmf(1),plcl(1),plfc(1),wbeff(1)
 
       DO i = 1,klon