|
Last change
on this file since 190 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
|
| Line | |
|---|
| 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.
