module declare_month_lapsecouche USE module3D_phy implicit none ! 1=decalaration variables !------------------------- integer,parameter :: mois=12 integer :: mo real,dimension(nx,ny,mois+1) :: Tm_surf ! surface temperature !(after topo. correction) ! 13 mois pour modulo real,dimension(nx,ny,mois+1) :: Pm_surf ! surface precipitation ! (after topo. correction) real,dimension(nx,ny) :: S0CLIM ! topo de reference du GCM real,dimension(nx,ny,mois+1) :: Tm_0 ! surface temperature at S0CLIM mensual (ref) real,dimension(nx,ny,mois+1) :: Tsol ! temperature de S0CLIM ramenee au niveau du sol real,dimension(mois,4) :: lapserate ! le lapserate mensuel suivant 3 tranches d'altitude end module declare_month_lapsecouche