Last change
on this file since 23 was
4,
checked in by dumas, 10 years ago
|
initial import GRISLI trunk
|
File size:
942 bytes
|
Rev | Line | |
---|
[4] | 1 | module declare_month_lapsecouche |
---|
| 2 | |
---|
| 3 | USE module3D_phy |
---|
| 4 | |
---|
| 5 | implicit none |
---|
| 6 | |
---|
| 7 | ! 1=decalaration variables |
---|
| 8 | !------------------------- |
---|
| 9 | |
---|
| 10 | integer,parameter :: mois=12 |
---|
| 11 | integer :: mo |
---|
| 12 | |
---|
| 13 | real,dimension(nx,ny,mois+1) :: Tm_surf ! surface temperature |
---|
| 14 | !(after topo. correction) |
---|
| 15 | ! 13 mois pour modulo |
---|
| 16 | |
---|
| 17 | real,dimension(nx,ny,mois+1) :: Pm_surf ! surface precipitation |
---|
| 18 | ! (after topo. correction) |
---|
| 19 | |
---|
| 20 | real,dimension(nx,ny) :: S0CLIM ! topo de reference du GCM |
---|
| 21 | real,dimension(nx,ny,mois+1) :: Tm_0 ! surface temperature at S0CLIM mensual (ref) |
---|
| 22 | real,dimension(nx,ny,mois+1) :: Tsol ! temperature de S0CLIM ramenee au niveau du sol |
---|
| 23 | |
---|
| 24 | real,dimension(mois,4) :: lapserate ! le lapserate mensuel suivant 3 tranches d'altitude |
---|
| 25 | |
---|
| 26 | |
---|
| 27 | |
---|
| 28 | end module declare_month_lapsecouche |
---|
Note: See
TracBrowser
for help on using the repository browser.