Ignore:
Timestamp:
Nov 19, 2019, 5:15:25 PM (5 years ago)
Author:
musat
Message:

flag_wb needs to be real for this branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZ-QUEST/libf/phylmd/cv3p2_closure.F90

    r2502 r3603  
    608608    ELSE
    609609      ! Calculate wbeff
    610       IF (flag_wb==0) THEN
     610      IF (NINT(flag_wb)==0) THEN
    611611        wbeff(il) = wbmax
    612       ELSE IF (flag_wb==1) THEN
     612      ELSE IF (NINT(flag_wb)==1) THEN
    613613        wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
    614       ELSE IF (flag_wb==2) THEN
     614      ELSE IF (NINT(flag_wb)==2) THEN
    615615        wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
    616616      END IF
Note: See TracChangeset for help on using the changeset viewer.