Changeset 3603 for LMDZ6/branches/LMDZ-QUEST/libf/phylmd/cv3p1_closure.F90
- Timestamp:
- Nov 19, 2019, 5:15:25 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-QUEST/libf/phylmd/cv3p1_closure.F90
r2826 r3603 537 537 ELSE 538 538 ! Calculate wbeff 539 IF ( flag_wb==0) THEN539 IF (NINT(flag_wb)==0) THEN 540 540 wbeff(il) = wbmax 541 ELSE IF ( flag_wb==1) THEN541 ELSE IF (NINT(flag_wb)==1) THEN 542 542 wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il))) 543 ELSE IF ( flag_wb==2) THEN543 ELSE IF (NINT(flag_wb)==2) THEN 544 544 wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2 545 545 ELSE ! Option provisoire ou le iflag_wb/10 est considere comme une vitesse
Note: See TracChangeset
for help on using the changeset viewer.