Changeset 1785 for LMDZ5/trunk/libf/phylmd/hgardfou.F

Timestamp:

Jul 16, 2013, 11:22:04 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Transformation de l'include indicesol.h en un module indice_sol_mod et modification des appels dans tous les fichiers concernés.
Aucun changement des résultats ni des sorties du modèle vs 1784.
UG

...................................................

Replacement of the indicesol.h include by a module named indice_sol_mod. Modification of the calls in every affected files.
Results and outputs of simulations are unchanged in comparison with rev 1784.
UG

File:

• LMDZ5/trunk/libf/phylmd/hgardfou.F (modified) (6 diffs)

LMDZ5/trunk/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,lic,oce,sic =',
+     $       '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)
@@ -78 +78 @@
            DO i = 1, jbad
              WRITE(lunout,*)
-     $       'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =',
+     $       '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)
@@ -104 +104 @@
            DO i = 1, jbad
             WRITE(lunout,*) 
-     $      'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic ='
+     $      '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)
@@ -125 +125 @@
            DO i = 1, jbad
             WRITE(lunout,*) 
-     $      'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic ='
+     $      '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)