|
Last change
on this file since 3026 was
3016,
checked in by emillour, 17 months ago
|
|
Mars PCM:
Code cleanup: nltedata.h is only included in nltecool.F so turn this data
into module data there. Also convert lteparams.h into module nlteparams_h.F90.
And while at it also turn nlthermeq.F and blendrad.F into modules.
EM
|
|
File size:
632 bytes
|
| Line | |
|---|
| 1 | MODULE nlteparams_h |
|---|
| 2 | |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| 5 | !----------------------------------------------------------------------- |
|---|
| 6 | ! Parameters which govern the transition from LTE to NLTE radiation |
|---|
| 7 | ! tendencies. |
|---|
| 8 | !----------------------------------------------------------------------- |
|---|
| 9 | |
|---|
| 10 | real,parameter :: ptrans = 0.1 ! central pressure for transition (Pa) |
|---|
| 11 | |
|---|
| 12 | real,parameter :: zw = 0.5 ! half-width for transition (scale heights) |
|---|
| 13 | |
|---|
| 14 | real,parameter :: pminte = 0.4*ptrans ! pressure up to which LTE |
|---|
| 15 | ! is calculated (Pa) almost one scale height above transition in worst |
|---|
| 16 | ! case is very safe |
|---|
| 17 | |
|---|
| 18 | real,parameter :: zwi = 2./zw |
|---|
| 19 | |
|---|
| 20 | END MODULE nlteparams_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
