Changeset 1664 for LMDZ5/branches/testing/libf/phylmd/hgardfou.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/hgardfou.F (modified) (6 diffs)

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

@@ -11 +11 @@
 #include "YOMCST.h"
 #include "indicesol.h"
+#include "iniprint.h"
       REAL t(klon,klev), tsol(klon,nbsrf)
       CHARACTER*(*) text
@@ -27 +28 @@
 
       IF (firstcall) THEN
-         PRINT*, 'hgardfou garantit la temperature dans [100,370] K'
+         WRITE(lunout,*) 
+     $  'hgardfou garantit la temperature dans [100,370] K'
          firstcall = .FALSE.
 c        DO i = 1, klon
-c         print*,'i=',i,'rlon=',rlon(i),'rlat=',rlat(i)
+c         WRITE(lunout,*)'i=',i,'rlon=',rlon(i),'rlat=',rlat(i)
 c        ENDDO
 c
@@ -54 +56 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+             WRITE(lunout,*)
+     $       'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
      $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
      $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
@@ -74 +77 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+             WRITE(lunout,*)
+     $       'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
      $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
      $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
@@ -99 +103 @@
            ok = .FALSE.
            DO i = 1, jbad
-            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+            WRITE(lunout,*) 
+     $      'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
      $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
      $      ,pctsrf(jadrs(i),nsrf)
@@ -119 +124 @@
            ok = .FALSE.
            DO i = 1, jbad
-            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+            WRITE(lunout,*) 
+     $      'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
      $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
      $      ,pctsrf(jadrs(i),nsrf)