Changeset 3571 for LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90

Timestamp:

Oct 1, 2019, 6:10:13 AM (5 years ago)

Author:

fhourdin

Message:

iflag_wb devient un real pour pouvoir lui donner une valeur continue
quand on l'utilise comme valeur de wbmax en surface.
Pas très joli mais important pour le tuning automatique pour lequel on
genere des valeurs continues de wb_max.

File:

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

LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90

@@ -537 +537 @@
     ELSE
       ! Calculate wbeff
-      IF (flag_wb==0) THEN
+      IF (NINT(flag_wb)==0) THEN
         wbeff(il) = wbmax
-      ELSE IF (flag_wb==1) THEN
+      ELSE IF (NINT(flag_wb)==1) THEN
         wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
-      ELSE IF (flag_wb==2) THEN
+      ELSE IF (NINT(flag_wb)==2) THEN
         wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
       ELSE ! Option provisoire ou le iflag_wb/10 est considere comme une vitesse