Changeset 1664 for LMDZ5/branches/testing/libf/phylmd/fisrtilp_tr.F

Timestamp:

Oct 9, 2012, 3:29:15 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1575

---

Testing release based on r1575

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/fisrtilp_tr.F (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/fisrtilp_tr.F

@@ -24 +24 @@
 #include "YOMCST.h"
 #include "tracstoke.h"
+#include "iniprint.h"
 c
 c Arguments:
@@ -136 +137 @@
       IF (appel1er) THEN
 c
-         PRINT*, 'fisrtilp, calcrat:', calcrat
-         PRINT*, 'fisrtilp, ninter:', ninter
-         PRINT*, 'fisrtilp, evap_prec:', evap_prec
-         PRINT*, 'fisrtilp, cpartiel:', cpartiel
+         WRITE(lunout,*) 'fisrtilp, calcrat:', calcrat
+         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