source: LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/sisvat/VARdCP.F90 @ 5225

Last change on this file since 5225 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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
Line 
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.