Ignore:
Timestamp:
Mar 16, 2017, 2:31:15 PM (8 years ago)
Author:
fhourdin
Message:

Nouvelle option (provisoire) de contrôle de la convection par wbmax

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3p1_closure.F90

    r2502 r2826  
    543543      ELSE IF (flag_wb==2) THEN
    544544        wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
     545      ELSE ! Option provisoire ou le iflag_wb/10 est considere comme une vitesse
     546        wbeff(il) = flag_wb*0.01+wbmax/(1.+500./(ph(il,1)-plfc(il)))
    545547      END IF
    546548    END IF
Note: See TracChangeset for help on using the changeset viewer.