Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/hgardfou.F

Timestamp:

Jul 18, 2013, 10:20:28 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/hgardfou.F (modified) (6 diffs)

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

@@ -2 +2 @@
 ! $Id$
       SUBROUTINE hgardfou (t,tsol,text)
-      use dimphy
-      use phys_state_var_mod
+      USE dimphy
+      USE phys_state_var_mod
+      USE indice_sol_mod
       IMPLICIT none
 c======================================================================
@@ -10 +11 @@
 #include "dimensions.h"
 #include "YOMCST.h"
-#include "indicesol.h"
 #include "iniprint.h"
       REAL t(klon,klev), tsol(klon,nbsrf)
@@ -57 +57 @@
            DO i = 1, jbad
              WRITE(lunout,*)
-     $       'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+     $       'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =',
      $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
      $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
@@ -78 +78 @@
            DO i = 1, jbad
              WRITE(lunout,*)
-     $       'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+     $       'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =',
      $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
      $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
@@ -104 +104 @@
            DO i = 1, jbad
             WRITE(lunout,*) 
-     $      'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+     $      'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic ='
      $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
      $      ,pctsrf(jadrs(i),nsrf)
@@ -125 +125 @@
            DO i = 1, jbad
             WRITE(lunout,*) 
-     $      'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+     $      'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic ='
      $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
      $      ,pctsrf(jadrs(i),nsrf)