Changeset 1515 for LMDZ5/trunk/libf/phylmd/cv3p1_closure.F

Timestamp:

May 6, 2011, 12:40:30 PM (13 years ago)

Author:

idelkadi

Message:

Corrections, organisation et modifications des parametres de la convection lus dans les fichiers inputs conv_param.data et ep_param.data

File:

• LMDZ5/trunk/libf/phylmd/cv3p1_closure.F (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/cv3p1_closure.F

@@ -75 +75 @@
       real term1,term2,term3
       real alp2(nloc) ! Alp with offset
-      real wb,sigmax
-      data wb /2./, sigmax /0.1/
+c
+      real sigmax
+      parameter (sigmax =  0.1)
 
       CHARACTER (LEN=20) :: modname='cv3p1_closure'
@@ -515 +516 @@
 c
       DO il = 1,ncum
-       cbmf1(il) = alp2(il)/(0.5*wb*wb-Cin(il))
+cjyg    Modification du coef de wb*wb pour conformite avec papier Wake
+cc       cbmf1(il) = alp2(il)/(0.5*wb*wb-Cin(il))
+       cbmf1(il) = alp2(il)/(2.*wb*wb-Cin(il))
        if(cbmf1(il).EQ.0.AND.alp2(il).NE.0.) THEN
         write(lunout,*)