scale_cpl_sfc_index.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale_cpl_sfc_index
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  integer,  public, parameter :: n_rad_rgn   = 3 ! number of the radiation band region
  integer,  public, parameter :: i_r_ir      = 1 ! infrared         lamda > 4.0um
  integer,  public, parameter :: i_r_nir     = 2 ! near-IR  4.0um > lamda > 0.7um
  integer,  public, parameter :: i_r_vis     = 3 ! visible  0.7um > lamda
 
  real(rp), public, parameter :: rad_rgn_boundary_vis = 0.7_rp ! [um]
  real(rp), public, parameter :: rad_rgn_boundary_ir  = 4.0_rp ! [um]
 
  integer,  public, parameter :: n_rad_dir   = 2 ! number of the radiation direction
  integer,  public, parameter :: i_r_direct  = 1
  integer,  public, parameter :: i_r_diffuse = 2
 
end module scale_cpl_sfc_index