Changeset 1785 for LMDZ5/trunk/libf/phylmd/coef_diff_turb_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/coef_diff_turb_mod.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/phylmd/coef_diff_turb_mod.F90

@@ -17 +17 @@
  
     USE dimphy
+    USE indice_sol_mod
 !
 ! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the 
@@ -55 +56 @@
 !****************************************************************************************
     INCLUDE "clesphys.h"
-    INCLUDE "indicesol.h"
     INCLUDE "iniprint.h"
     INCLUDE "compbl.h"
@@ -187 +187 @@
     
     USE dimphy
+    USE indice_sol_mod
   
 !======================================================================
@@ -211 +212 @@
     INCLUDE "FCTTRE.h"
     INCLUDE "iniprint.h"
-    INCLUDE "indicesol.h"
     INCLUDE "compbl.h"
     INCLUDE "YOMCST.h"
@@ -479 +479 @@
 
     USE dimphy
+    USE indice_sol_mod
 
 !======================================================================
@@ -523 +524 @@
     REAL zdthmin(knon), zdthdp
 
-    INCLUDE "indicesol.h"
     INCLUDE "YOMCST.h"
 !