source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/Mod_SISVAT_CdP.f90 @ 5006

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.4 KB
Line 
1     module Mod_SISVAT_CdP
2
3!--------------------------------------------------------------------------+
4!    module Mod_SISVAT_CdP                            Fri  1-Feb-2013  MAR |
5!    module Mod_SISVAT_CdP  contains specific (Col de Porte) constants of  |
6!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
7!                                                                          |
8!--------------------------------------------------------------------------+
9
10
11
12! General Variables
13! =================
14
15      use Mod_Real
16
17
18      IMPLICIT NONE
19
20
21! Col de Porte specific Constants
22! ===============================
23
24! Fractions of total solar irradiances in 3 spectral intervals
25! ------------------------------------------------------------
26
27      real(kind=real8), SAVE  ::  Dr_1SN = 0.59,   Dr_2SN = 0.31,   Dr_3SN = 0.10  ! Direct  Radiation
28      real(kind=real8), SAVE  ::  Df_1SN = 0.95,   Df_2SN = 0.05,   Df_3SN = 0.00  ! Diffuse Radiation, Clear  Sky
29      real(kind=real8), SAVE  ::  Dfc1SN = 0.66,   Dfc2SN = 0.27,   Dfc3SN = 0.07  ! Diffuse Radiation, Cloudy Sky
30!                           0.3--0.8micr.m   0.8--1.5micr.m   1.5--2.8micr.m
31!                           Fractions of total solar irradiance in 3 spectral intervals
32!                          (see Eric Martin Sept. 1996, CROCUS, Subroutine METEO)
33
34      real(kind=real8), SAVE  ::  DirSol,DifSol,TotSol,Clouds
35
36
37
38     end module Mod_SISVAT_CdP
Note: See TracBrowser for help on using the repository browser.