radcons.f90

 
 
 
          module radcons                
!
  use machine,      only : kind_phys
!
  implicit none
!
  public
 
!  ---  version tag and last revision date
      character(40), parameter ::                                       &
     &   VTAGRAD='NCEP-Radiation_driver    v5.2  Jan 2013 '
!    &   VTAGRAD='NCEP-Radiation_driver    v5.1  Nov 2012 '
!    &   VTAGRAD='NCEP-Radiation_driver    v5.0  Aug 2012 '
 
      real (kind=kind_phys) :: qmin                     
      real (kind=kind_phys) :: qme5                     
      real (kind=kind_phys) :: qme6                     
      real (kind=kind_phys) :: epsq
!     parameter (QMIN=1.0e-10, QME5=1.0e-5,  QME6=1.0e-6,  EPSQ=1.0e-12)
      parameter(qmin=1.0e-10, qme5=1.0e-7,  qme6=1.0e-7,  epsq=1.0e-12)
!     parameter (QMIN=1.0e-10, QME5=1.0e-20, QME6=1.0e-20, EPSQ=1.0e-12)
 
      real, parameter :: prsmin = 1.0e-6
 
      integer :: itsfc  =0
 
      integer :: month0=0,   iyear0=0,   monthd=0
 
      logical :: loz1st =.true.
 
!----------------------------
! Module variable definitions
!----------------------------
!CCPP: copy from GFS_driver.F90
  real(kind=kind_phys), parameter :: con_24  =   24.0_kind_phys
  real(kind=kind_phys), parameter :: con_hr  = 3600.0_kind_phys
  real(kind=kind_phys), parameter :: con_99  =   99.0_kind_phys
  real(kind=kind_phys), parameter :: con_100 =  100.0_kind_phys
 ! real(kind=kind_phys), parameter :: qmin    =    1.0e-10
 
 
!........................................!
      end module radcons                !
!========================================!