|
Last change
on this file since 3567 was
2198,
checked in by flefevre, 5 years ago
|
|
reglages Diogo Quirino & Gabriella Gilli pour la haute atmosphere
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | c----------------------------------------------------------------------- |
|---|
| 2 | c INCLUDE 'nlteparams.h' |
|---|
| 3 | c |
|---|
| 4 | c Parameters which govern the transition from LTE to NLTE radiation |
|---|
| 5 | c tendencies. |
|---|
| 6 | c----------------------------------------------------------------------- |
|---|
| 7 | |
|---|
| 8 | real ptrans ! central pressure for transition (Pa) |
|---|
| 9 | c "Nominal" values in Gilli+2017 |
|---|
| 10 | c parameter (ptrans = 0.5) |
|---|
| 11 | c "New" values by D.Quirino (better agreement with SOIR/SPICAV temperature) |
|---|
| 12 | parameter (ptrans = 0.2) |
|---|
| 13 | real zw ! half-width for transition (scale heights) |
|---|
| 14 | parameter (zw = 0.5) |
|---|
| 15 | real pminte ! pressure up to which LTE is calculated (Pa) |
|---|
| 16 | parameter (pminte = 0.3*ptrans) |
|---|
| 17 | c almost one scale height above transition in worst case is very safe |
|---|
| 18 | real zwi |
|---|
| 19 | parameter (zwi = 2./zw) |
|---|
| 20 | |
|---|
| 21 | c----------------------------------------------------------------------- |
|---|
| 22 | |
|---|
| 23 | c Number of layers on which LTE calculations (in lw and sw) are performed |
|---|
| 24 | c (Computed in nlthermeq) : |
|---|
| 25 | INTEGER nlaylte |
|---|
| 26 | common/nltepar/nlaylte |
|---|
Note: See
TracBrowser
for help on using the repository browser.
