Changeset 1515 for LMDZ5/trunk/libf/phylmd/cv3p1_closure.F
- Timestamp:
- May 6, 2011, 12:40:30 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cv3p1_closure.F
r1403 r1515 75 75 real term1,term2,term3 76 76 real alp2(nloc) ! Alp with offset 77 real wb,sigmax 78 data wb /2./, sigmax /0.1/ 77 c 78 real sigmax 79 parameter (sigmax = 0.1) 79 80 80 81 CHARACTER (LEN=20) :: modname='cv3p1_closure' … … 515 516 c 516 517 DO il = 1,ncum 517 cbmf1(il) = alp2(il)/(0.5*wb*wb-Cin(il)) 518 cjyg Modification du coef de wb*wb pour conformite avec papier Wake 519 cc cbmf1(il) = alp2(il)/(0.5*wb*wb-Cin(il)) 520 cbmf1(il) = alp2(il)/(2.*wb*wb-Cin(il)) 518 521 if(cbmf1(il).EQ.0.AND.alp2(il).NE.0.) THEN 519 522 write(lunout,*)
Note: See TracChangeset
for help on using the changeset viewer.