Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/coef_diff_turb_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/coef_diff_turb_mod.F90 (modified) (7 diffs)

LMDZ5/branches/testing/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"
@@ -158 +158 @@
          
 !   iflag_pbl peut etre utilise comme longuer de melange
-       IF (iflag_pbl.GE.18) THEN
+       IF (iflag_pbl.GE.31) THEN
           CALL vdif_kcay(knon,dtime,RG,RD,ypaprs,yt, &
                yzlev,yzlay,yu,yv,yteta, &
                ycdragm,yq2,q2diag,ykmm,ykmn,yustar, &
                iflag_pbl)
-       ELSE
+       ELSE IF (iflag_pbl<20) THEN
           CALL yamada4(knon,dtime,RG,RD,ypaprs,yt, &
                yzlev,yzlay,yu,yv,yteta, &
@@ -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"
 !