Changeset 1785 for LMDZ5/trunk/libf/phy1d/pbl_surface_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/phy1d/pbl_surface_mod.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phy1d/pbl_surface_mod.F90

@@ -23 +23 @@
   USE coef_diff_turb_mod,  ONLY : coef_diff_turb
   USE control_mod
+  USE indice_sol_mod
 
 
@@ -57 +58 @@
 ! for the index of the different surfaces and tests the choice of type of ocean.
 
-    INCLUDE "indicesol.h"
     INCLUDE "dimsoil.h"
     INCLUDE "iniprint.h"
@@ -250 +250 @@
     IMPLICIT NONE
 
-    INCLUDE "indicesol.h"
     INCLUDE "dimsoil.h"
     INCLUDE "YOMCST.h"
@@ -1319 +1318 @@
        evap_rst, rugos_rst, agesno_rst, ftsoil_rst)
 
-    INCLUDE "indicesol.h"
     INCLUDE "dimsoil.h"
 
@@ -1369 +1367 @@
     ! Give default values where new fraction has appread
 
-    INCLUDE "indicesol.h"
     INCLUDE "dimsoil.h"
     INCLUDE "clesphys.h"