Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90

    r3496 r3571  
    609609    ELSE
    610610      ! Calculate wbeff
    611       IF (flag_wb==0) THEN
     611      IF (NINT(flag_wb)==0) THEN
    612612        wbeff(il) = wbmax
    613       ELSE IF (flag_wb==1) THEN
     613      ELSE IF (NINT(flag_wb)==1) THEN
    614614        wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
    615       ELSE IF (flag_wb==2) THEN
     615      ELSE IF (NINT(flag_wb)==2) THEN
    616616        wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
    617617      END IF
Note: See TracChangeset for help on using the changeset viewer.