Changeset 2458 for LMDZ5/trunk/libf/phylmd/cv3p1_closure.F90

Timestamp:

Mar 9, 2016, 10:27:25 AM (8 years ago)

Author:

jyg

Message:

Read the shedding coefficient coef_peel (used when
iflag_mix_adiab=1) from file cv_param.data
(default=0.25).

File:

• LMDZ5/trunk/libf/phylmd/cv3p1_closure.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cv3p1_closure.F90

@@ -82 +82 @@
   REAL mad(nloc, nd), me(nloc, nd), betalim(nloc, nd), beta_coef(nloc, nd)
   REAL med(nloc, nd), md(nloc,nd)
-  REAL coef_peel
-  PARAMETER (coef_peel=0.25)
+!jyg<
+! coef_peel is now in the common cv3_param 
+!!  REAL coef_peel
+!!  PARAMETER (coef_peel=0.25)
+!>jyg
 
   REAL sigmax