source: LMDZ6/branches/SETHET_DECOUPLE/libf/phymar/Mod_SISVAT_loc.f90 @ 5420

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

Inclusion de la physique de MAR

Integration of MAR physics
File size: 4.5 KB
Line 
1      module Mod_SISVAT_loc
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVAT_loc contains the         diagnostic  variables of  |
6!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Sat  8-Feb-2013      |
9!                    modified by H. Gallee,           Wed 26-Jun-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13      use    Mod_Real
14
15
16      IMPLICIT NONE
17
18
19      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  NLaysv  ! New   Snow     Layer   Switch
20      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  i_thin  ! Index of the thinest Layer
21      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  LIndsv  ! Contiguous Layer relative Index
22
23      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  albisv  ! Integrated Surface Albedo
24      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  albssv  ! Soil               Albedo [-]
25      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SoCasv  ! Canopy  Absorbed Solar Radiat.
26      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SoSosv  ! Surface Absorbed Solar Radiat.
27      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  IRv_sv  ! Vegetation IR Flux  [W/m2]
28      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Evg_sv  ! Emissivity of Vegetation+Snow
29      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Eso_sv  ! Emissivity of       Soil+Snow
30      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  tau_sv  ! Transmited Radiation Fraction
31      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rrMxsv  ! Canopy Maximum Intercepted Rain
32      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LAIesv  ! effective LAI for transpirati.
33      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LAI_sv  ! corrected LAI in case of snow
34      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  glf_sv  ! Green  Leaf Fraction
35      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Sigmsv  ! Canopy Ventilation  Factor
36      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HSv_sv  ! Sensible Heat Flux  [W/m2]
37      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HLv_sv  ! Latent   Heat Flux  [W/m2]
38      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HSs_sv  ! Sensible Heat Flux (t)
39      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HLs_sv  ! Latent   Heat Flux (t)
40      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  sqrCm0  ! in Neutral Drag Coef.Moment.
41      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  sqrCh0  ! in Neutral Drag Coef.Heat
42      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Lx_H2O  ! Latent Heat of Vaporiz./Sublim.
43      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ram_sv  ! Aerodyn.Resistance (Moment.)
44      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rah_sv  ! Aerodyn.Resistance (Heat)
45      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Fh__sv  ! Stability Function
46      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dFh_sv  ! Stability Function (Deriv.)
47      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Evp_sv  ! Evaporation        [kg/m2]
48      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  EvT_sv  ! Evapotranspiration [kg/m2]
49      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LSdzsv  ! Land/Sea Vert. Discretiz. Fact.
50      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Tsrfsv  ! Surface    Temperature
51      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  sEX_sv  ! Verticaly Integr.Extinct.Coef.
52      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  zzsnsv  ! Snow  Pack Thickness      [m]
53      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  psi_sv  ! Soil   Water        Potential
54      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  Khydsv  ! Soil   Hydraulic    Conductiv.
55      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  Rootsv  ! Root Water Pump      [kg/m2/s]
56      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  EExcsv  ! Energy in Excess, current
57
58
59      end module Mod_SISVAT_loc
Note: See TracBrowser for help on using the repository browser.