| 1 | MODULE VARdCP |
|---|
| 2 | |
|---|
| 3 | IMPLICIT 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 | |
|---|
| 30 | END MODULE VARdCP |
|---|
