Last change
on this file since 91 was
38,
checked in by emillour, 14 years ago
|
Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM
|
File size:
673 bytes
|
Rev | Line | |
---|
[38] | 1 | C* Coefficients for the longwave radiation subroutines |
---|
| 2 | c----------------------------------------------------------------------- |
---|
| 3 | |
---|
| 4 | COMMON/yomlw/at(2,2),bt(2,2) |
---|
| 5 | S ,tref,xp(6,nir),tstand |
---|
| 6 | S ,ga(npademx,nabsmx),gb(npademx,nabsmx) |
---|
| 7 | S ,cst_voigt(2,nabsmx), gcp , nlaylte |
---|
| 8 | |
---|
| 9 | REAL at,bt, tref,xp,tstand,ga,gb, cst_voigt |
---|
| 10 | REAL gcp ! = g/cpp |
---|
| 11 | |
---|
| 12 | c Number of layers on which LTE calculations (in lw and sw) are performed |
---|
| 13 | c (Computed in nlthermeq) : |
---|
| 14 | INTEGER nlaylte |
---|
| 15 | |
---|
| 16 | |
---|
| 17 | COMMON/ksicom/ |
---|
| 18 | S xi(ngridmx,nuco2,0:nflev+1,0:nflev+1) |
---|
| 19 | S ,xi_ground(ngridmx,nuco2),xi_emis(ngridmx,nuco2,nflev-1) |
---|
| 20 | |
---|
| 21 | real xi, xi_ground, xi_emis |
---|
Note: See
TracBrowser
for help on using the repository browser.