Changeset 4165
- Timestamp:
- Apr 2, 2026, 1:35:01 PM (41 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/thermo.f90
r4080 r4165 50 50 T0 = 200.0D0 51 51 52 VISAIR=1015.0D0*((T/T0)**( 0.5D0))*(T0**(AA)+SS)/(T**(AA)+SS)52 VISAIR=1015.0D0*((T/T0)**(1.5D0))*(T0**(AA)+SS)/(T**(AA)+SS) 53 53 VISAIR=VISAIR*1.D-8 54 54
Note: See TracChangeset
for help on using the changeset viewer.
