Changeset 1785 for LMDZ5/trunk/libf/phylmd/fonte_neige_mod.F90

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/fonte_neige_mod.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/fonte_neige_mod.F90

@@ -9 +9 @@
 !****************************************************************************************
   USE dimphy, ONLY : klon
+  USE indice_sol_mod
 
   IMPLICIT NONE
@@ -44 +45 @@
 ! restart file. The other variables are initialized to zero.
 !
-    INCLUDE "indicesol.h"
 !****************************************************************************************
 ! Input argument
@@ -120 +120 @@
        tsurf, precip_rain, precip_snow, &
        snow, qsol, tsurf_new, evap)
+
+  USE indice_sol_mod
         
 ! Routine de traitement de la fonte de la neige dans le cas du traitement
@@ -139 +141 @@
 !   evap
 !
-  INCLUDE "indicesol.h"
   INCLUDE "dimensions.h"
   INCLUDE "YOETHF.h"
@@ -315 +316 @@
        fqfonte_out, ffonte_out)
 
+
+
 ! Cumulate ffonte, fqfonte and fqcalving respectively for
 ! all type of surfaces according to their fraction.
 !
 ! This routine is called from physiq.F before histwrite.
-
-    INCLUDE "indicesol.h"
-!****************************************************************************************
+!****************************************************************************************
+
+  USE indice_sol_mod
+
     REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf