source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/Mod_SISVAT_flx.f90 @ 3106

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.6 KB
Line 
1     module Mod_SISVAT_flx
2
3!--------------------------------------------------------------------------+
4!    module Mod_SISVAT_flx                            Wed 26-Jun-2013  MAR |
5!    module Mod_SISVAT_flx  contains specific variables (and constants)    |
6!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Fri  1-Feb-2013      |
9!                    modified by H. Gallee,           Wed 26-Jun-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13
14
15! General Variables
16! =================
17
18      use Mod_Real
19      use Mod_SISVAT_dim
20
21
22      IMPLICIT NONE
23
24
25! SISVAT_flx    specific variables (and constants)
26! ================================================
27
28! OUTPUT for Stand Alone NetCDF File
29! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
30      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SOsoKL        ! Absorbed Solar Radiation
31      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  IRsoKL        ! Absorbed IR    Radiation
32      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HSsoKL        ! Absorbed Sensible Heat Flux
33      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HLsoKL        ! Absorbed Latent   Heat Flux
34      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HLs_KL        ! Evaporation
35      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HLv_KL        ! Transpiration
36
37
38
39     end module Mod_SISVAT_flx
Note: See TracBrowser for help on using the repository browser.