Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/fonte_neige_mod.F90

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

LMDZ5/branches/testing/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