Changeset 892 for trunk/LMDZ.VENUS/libf/phyvenus/clmain.classic
- Timestamp:
- Mar 5, 2013, 4:01:03 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/clmain.classic
r101 r892 822 822 zx_alf2(i) = 1.0 - zx_alf1(i) 823 823 zx_coef(i,1) = coef(i,1) 824 . * (1.0+SQRT(u1lay(i)**2+v1lay(i)**2))824 . * SQRT(u1lay(i)**2+v1lay(i)**2) 825 825 . * pplay(i,1)/(RD*t(i,1)) 826 826 zx_coef(i,1) = zx_coef(i,1) * dtime*RG
Note: See TracChangeset
for help on using the changeset viewer.