source: LMDZ5/branches/testing/libf/phylmd/sisvat/VARdCP.F90 @ 5446

Last change on this file since 5446 was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 into testing branch
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.9 KB
RevLine 
[1865]1MODULE VARdCP
2
3IMPLICIT NONE
4! +                 
5!C +--Col de Porte specific Constants                                           
6!C +  ===============================                                           
7                                                                               
8      LOGICAL :: ColPrt                ! Col de Porte Switch               
9                                                                               
10                                                                               
11!C +--Fractions of total solar irradiances in 3 spectral intervals               
12!C +  ------------------------------------------------------------               
13                                                                               
14      REAL, PARAMETER :: Dr_1SN=0.59, Dr_2SN=0.31, Dr_3SN=0.10               
15      REAL, PARAMETER :: Df_1SN=0.95, Df_2SN=0.05, Df_3SN=0.00             
16      REAL, PARAMETER :: Dfc1SN=0.66, Dfc2SN=0.27, Dfc3SN=0.07               
17      REAL :: DirSol,DifSol,TotSol,Clouds                               
18
19!     Dr_1SN,Dr_2SN,Dr_3SN  ! Direct  Radiation                 
20!     Df_1SN,Df_2SN,Df_3SN  ! Diffuse Radiation, Clear  Sky     
21!     Dfc1SN,Dfc2SN,Dfc3SN  ! Diffuse Radiation, Cloudy Sky     
22!C +--DATA - from common block COL DE PORTE                           
23!C +  ====                                                                       
24!c #CP data     ColPrt /.true./                                   
25!                                                                               
26!C +.           0.3--0.8micr.m   0.8--1.5micr.m   1.5--2.8micr.m                 
27!C +            Fractions of total solar irradiance in 3 spectral intervals     
28!C +***        (see Eric Martin Sept. 1996, CROCUS, Subroutine METEO)         
29                                                                               
30END MODULE VARdCP   
Note: See TracBrowser for help on using the repository browser.