| 1 | {\footnotesize |
|---|
| 2 | \begin{verbatim} |
|---|
| 3 | 0 ! Initial day (martian sol; = 0 at Ls=0) |
|---|
| 4 | 0 ! initial local time (between 0 and 24) |
|---|
| 5 | 48 ! number of time-step per day. |
|---|
| 6 | 1 ! Run duration (sols) |
|---|
| 7 | 700. ! psurf: Surface pressure (Pa) |
|---|
| 8 | 0.2 ! tauref: reference dust opacity at 700 Pa (true tau~tauref*psurf/700) |
|---|
| 9 | 30. ! latitude (degrees) |
|---|
| 10 | 0.2 ! ground albedo (under the ice) |
|---|
| 11 | 400 ! ground thermal inertia (SI) |
|---|
| 12 | 10. ! composante vers l'est du vent geostrophique (u) |
|---|
| 13 | 0. ! composante vers le nord du vent geostrophique (v) |
|---|
| 14 | 0. ! initial CO2 ice mass (kg.m-2) |
|---|
| 15 | T ! Hybrid vertical coordinate ? T=Hybrid , F=sigma |
|---|
| 16 | |
|---|
| 17 | Initial temperature profile |
|---|
| 18 | ~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
|---|
| 19 | 5 ! ichoice : Kind of initial profile (see below) |
|---|
| 20 | 200 ! tref : reference temperature (K) (used if ichoice=1) |
|---|
| 21 | 0 ! isin (if isin=1, add a perturbation to profile) |
|---|
| 22 | 26.5220 ! pic pic perturbation gauss pour ichoice = 6 ou 7 |
|---|
| 23 | 10 ! largeur de la perturbation gauss pour ichoice = 6 ou 7 |
|---|
| 24 | 30. ! hauteur de la perturbation gauss pour ichoice = 6 ou 7 |
|---|
| 25 | |
|---|
| 26 | c======================================================================= |
|---|
| 27 | c differents profils d'atmospheres. T=f(z) |
|---|
| 28 | c ichoice=1 Temperature constante T=tref |
|---|
| 29 | c ichoice=2 profil Savidjari (comme Seiff mais avec dT/dz=cte) |
|---|
| 30 | c ichoice=3 Lindner (profil polaire) |
|---|
| 31 | c ichoice=4 inversion |
|---|
| 32 | c ichoice=5 Seiff (profile standard base sur les entrees Viking) |
|---|
| 33 | c ichoice=6 T constante + perturbation gauss (level) |
|---|
| 34 | c ichoice=7 T constante + perturbation gauss (km) |
|---|
| 35 | c ichoice=8 Read in an ascii file "profile" |
|---|
| 36 | |
|---|
| 37 | \end{verbatim} |
|---|
| 38 | } |
|---|
