source: LMDZ5/trunk/libf/phymar/Mod_SISVAT_dzS.f90 @ 5049

Last change on this file since 5049 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.3 KB
RevLine 
[2089]1      module Mod_SISVAT_dzS
2
3      use    Mod_Real
4
5
6      implicit none
7
8
9      integer, SAVE          ,ALLOCATABLE ,dimension(:)   ::  islpSV
10      integer, SAVE          ,ALLOCATABLE ,dimension(:)   ::  isnpSV
11      integer, SAVE          ,ALLOCATABLE ,dimension(:)   ::  islmSV
12
13      real(kind=real8), SAVE                              ::  Implic,Explic
14      real(kind=real8), SAVE                              ::  OcndSV        ! Swab Ocean / Soil Ratio
15      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dzmiSV        ! dz_(i-1/2)
16      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dzi_SV        ! dz_(i-1)/(dz_(i)+dz_(i-1))
17      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dziiSV        ! dz_(i)  /(dz_(i)+dz_(i-1))
18      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dtz_SV        ! dt / dz
19      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dz78SV        ! 7/8 (dz)
20      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dz34SV        ! 3/4 (dz)
21      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dz_8SV        ! 1/8 (dz)
22      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dzAvSV        ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)
23      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:,:) ::  RF__SV        ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)
24
25      end module Mod_SISVAT_dzS
Note: See TracBrowser for help on using the repository browser.