VARdCP.F90

Go to the documentation of this file.

MODULE vardcp

IMPLICIT NONE
! +                  
!C +--Col de Porte specific Constants                                            
!C +  ===============================                                            
                                                                                
      LOGICAL :: colprt                ! Col de Porte Switch               
                                                                                
                                                                                
!C +--Fractions of total solar irradiances in 3 spectral intervals               
!C +  ------------------------------------------------------------               
                                                                                
      REAL, PARAMETER :: dr_1sn=0.59, dr_2sn=0.31, dr_3sn=0.10               
      REAL, PARAMETER :: df_1sn=0.95, df_2sn=0.05, df_3sn=0.00              
      REAL, PARAMETER :: dfc1sn=0.66, dfc2sn=0.27, dfc3sn=0.07               
      REAL :: dirsol,difsol,totsol,clouds                               

!     Dr_1SN,Dr_2SN,Dr_3SN  ! Direct  Radiation                 
!     Df_1SN,Df_2SN,Df_3SN  ! Diffuse Radiation, Clear  Sky     
!     Dfc1SN,Dfc2SN,Dfc3SN  ! Diffuse Radiation, Cloudy Sky     
!C +--DATA - from common block COL DE PORTE                            
!C +  ====                                                                       
!c #CP data     ColPrt /.true./                                   
!                                                                                
!C +.           0.3--0.8micr.m   0.8--1.5micr.m   1.5--2.8micr.m                 
!C +            Fractions of total solar irradiance in 3 spectral intervals      
!C +***        (see Eric Martin Sept. 1996, CROCUS, Subroutine METEO)          
                                                                                
END MODULE VARdCP