Changeset 64 for trunk/mars/libf/dyn3d
- Timestamp:
- Feb 15, 2011, 3:11:00 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/mars/libf/dyn3d/inidissip.F
r38 r64 52 52 if (pseudoalt(llm).lt.160.) then 53 53 fac_mid=2 ! coeff pour dissipation aux basses/moyennes altitudes 54 fac_up= 10 ! coeff multiplicateur pour dissipation hautes altitudes55 startalt= 90. ! altitude en Km de la transition mid / up54 fac_up=30 ! coeff multiplicateur pour dissipation hautes altitudes 55 startalt=70. ! altitude en Km de la transition mid / up 56 56 delta=20.! Intervalle (km) pour le changement mid / up 57 57 else ! thermosphere model
Note: See TracChangeset
for help on using the changeset viewer.