Changeset 1575 for LMDZ5/trunk/libf/phylmd/fisrtilp.F90

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/fisrtilp.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/fisrtilp.F90

@@ -147 +147 @@
   IF (appel1er) THEN
      !
-     PRINT*, 'fisrtilp, ninter:', ninter
-     PRINT*, 'fisrtilp, evap_prec:', evap_prec
-     PRINT*, 'fisrtilp, cpartiel:', cpartiel
+     WRITE(lunout,*) 'fisrtilp, ninter:', ninter
+     WRITE(lunout,*) 'fisrtilp, evap_prec:', evap_prec
+     WRITE(lunout,*) 'fisrtilp, cpartiel:', cpartiel
      IF (ABS(dtime/REAL(ninter)-360.0).GT.0.001) THEN
-        PRINT*, 'fisrtilp: Ce n est pas prevu, voir Z.X.Li', dtime
-        PRINT*, 'Je prefere un sous-intervalle de 6 minutes'
+        WRITE(lunout,*) 'fisrtilp: Ce n est pas prevu, voir Z.X.Li', dtime
+        WRITE(lunout,*) 'Je prefere un sous-intervalle de 6 minutes'
         !         CALL abort
      ENDIF
@@ -616 +616 @@
 
   if (ncoreczq>0) then
-     print*,'WARNING : ZQ dans fisrtilp ',ncoreczq,' val < 1.e-15.'
+     WRITE(lunout,*)'WARNING : ZQ dans fisrtilp ',ncoreczq,' val < 1.e-15.'
   endif