source: trunk/LMDZ.MARS/libf/phymars/nlteparams_h.F90 @ 3567

Last change on this file since 3567 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 
1MODULE nlteparams_h
2
3IMPLICIT NONE
4
5!-----------------------------------------------------------------------
6!   Parameters which govern the transition from LTE to NLTE radiation
7!   tendencies.
8!-----------------------------------------------------------------------
9
10real,parameter :: ptrans = 0.1    ! central pressure for transition (Pa)
11
12real,parameter :: zw = 0.5    ! half-width for transition (scale heights)
13
14real,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
18real,parameter :: zwi = 2./zw
19
20END MODULE nlteparams_h
Note: See TracBrowser for help on using the repository browser.