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

LMDZ5/trunk/libf/phylmd/sw_aeroAR4.F90

@@ -26 +26 @@
 #include "YOMCST.h"
 #include "clesphys.h"
+#include "iniprint.h"
   !
   !     ------------------------------------------------------------------
@@ -225 +226 @@
 
   IF (appel1er) THEN
-     PRINT*, 'SW calling frequency : ', swpas
-     PRINT*, "   In general, it should be 1"
+     WRITE(lunout,*) 'SW calling frequency : ', swpas
+     WRITE(lunout,*) "   In general, it should be 1"
      appel1er = .FALSE.
   ENDIF