Changeset 3493 for LMDZ6/trunk/libf/phylmd/fisrtilp.F90

Timestamp:

May 7, 2019, 10:45:07 AM (5 years ago)

Author:

idelkadi

Message:

Amelioration de la representation des nuages bas (Jean Jouhaud) :
Calcul des nouveaux ecarts types sigmas de la bi-Gaussienne en prenant en compte l'epaisseur des mailles, CF_vol avec ces sigmas, et CF_surf avec la methode de Brooks

File:

• LMDZ6/trunk/libf/phylmd/fisrtilp.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/fisrtilp.F90

@@ -740 +740 @@
                call cloudth(klon,klev,k,ztv, &
                    zq,zqta,fraca, &
-                   qcloud,ctot,zpspsk,paprs,ztla,zthl, &
+                   qcloud,ctot,zpspsk,paprs,pplay,ztla,zthl, &
                    ratqs,zqs,t)
-              elseif (iflag_cloudth_vert>=3) then
+              elseif (iflag_cloudth_vert>=3 .and. iflag_cloudth_vert<=5) then
                call cloudth_v3(klon,klev,k,ztv, &
                    zq,zqta,fraca, &
-                   qcloud,ctot,ctot_vol,zpspsk,paprs,ztla,zthl, &
+                   qcloud,ctot,ctot_vol,zpspsk,paprs,pplay,ztla,zthl, &
                    ratqs,zqs,t)
+              !----------------------------------
+              !Version these Jean Jouhaud, Decembre 2018 
+              !----------------------------------              
+              elseif (iflag_cloudth_vert==6) then
+               call cloudth_v6(klon,klev,k,ztv, &
+                   zq,zqta,fraca, &
+                   qcloud,ctot,ctot_vol,zpspsk,paprs,pplay,ztla,zthl, &
+                   ratqs,zqs,t)
+
               endif
               do i=1,klon