source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/Mod_SISVATLTSo.f90 @ 5434

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

Inclusion de la physique de MAR

Integration of MAR physics
File size: 3.9 KB
Line 
1      module Mod_SISVATLTSo
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLTSo contains local variables of SISVAT_TSo         |
6!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
9!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13
14! Global  Variables
15! =================
16
17      use Mod_Real
18
19
20
21! Internal Variables
22! ==================
23
24      IMPLICIT NONE
25
26      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Tsisva
27      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Fsisva       
28      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dza__1       
29
30      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  mu_sno        !     Snow thermal Conductivity
31      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  mu__dz        ! mu_(eta,sno)   / dz
32      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  dtC_sv        ! dt      / C
33      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  IRs__D        ! UpwardIR Previous Iter.Contr.
34      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dIRsdT        ! UpwardIR           T Derivat.
35      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  f_HSHL        ! Factor common to HS and HL
36      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dRidTs        ! d(Rib)/d(Ts)
37      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  HS___D        ! Sensible Heat Flux Atm.Contr.
38      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  f___HL        !
39      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  HL___D        ! Latent   Heat Flux Atm.Contr.
40      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  TSurf0        ! Previous Surface Temperature
41      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  qsatsg        ! Soil   Saturat. Spec. Humidity
42      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dqs_dT        ! d(qsatsg)/dTv
43      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Psi           ! 1st Soil Layer Water Potential
44      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  RHuSol        ! Soil Surface Relative Humidity
45      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  RHu_av        ! Soil Surface Relative Humidity
46      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_A        ! A Diagonal
47      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_B        ! B Diagonal
48      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_C        ! C Diagonal
49      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Term_D        !   Independant Term
50      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__P        ! P Auxiliary Variable
51      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__Q        ! Q Auxiliary Variable
52      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etaBAK        !
53      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etaNEW        !
54      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etEuBk        !
55      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  fac_dt        !
56      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  faceta        !
57      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  PsiArg        !
58      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  SHuSol        !
59
60
61      end module Mod_SISVATLTSo
Note: See TracBrowser for help on using the repository browser.