scale_cpl_sfc_index Module Reference

module coupler / surface-atmospehre More...

Variables
integer, parameter, public	n_rad_rgn = 3
integer, parameter, public	i_r_ir = 1
integer, parameter, public	i_r_nir = 2
integer, parameter, public	i_r_vis = 3
real(rp), parameter, public	rad_rgn_boundary_vis = 0.7_RP
real(rp), parameter, public	rad_rgn_boundary_ir = 4.0_RP
integer, parameter, public	n_rad_dir = 2
integer, parameter, public	i_r_direct = 1
integer, parameter, public	i_r_diffuse = 2

Detailed Description

module coupler / surface-atmospehre

Description

Common index among surface submodels and atmosphere

Author

Team SCALE

Variable Documentation

n_rad_rgn

integer, parameter, public scale_cpl_sfc_index::n_rad_rgn = 3

Definition at line 28 of file scale_cpl_sfc_index.F90.

Referenced by mod_atmos_phy_rd_vars::atmos_phy_rd_vars_setup(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), mod_cpl_vars::cpl_vars_setup(), mod_land_vars::land_vars_setup(), mod_ocean_vars::ocean_vars_setup(), mod_realinput::realinput_surface(), and mod_urban_vars::urban_vars_setup().

  integer,  public, parameter :: n_rad_rgn   = 3 ! number of the radiation band region

i_r_ir

integer, parameter, public scale_cpl_sfc_index::i_r_ir = 1

Definition at line 29 of file scale_cpl_sfc_index.F90.

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), scale_atmos_phy_rd_offline::atmos_phy_rd_offline_flux(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_checktotal(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_fillhalo(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_read(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_checktotal(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_fillhalo(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), mod_cpl_vars::cpl_getatm_lnd(), mod_cpl_vars::cpl_getatm_ocn(), mod_cpl_vars::cpl_getatm_urb(), mod_cpl_vars::cpl_getsfc_atm(), scale_cpl_phy_sfc_fixed_temp::cpl_phy_sfc_fixed_temp(), scale_cpl_phy_sfc_skin::cpl_phy_sfc_skin(), mod_cpl_vars::cpl_putatm(), mod_cpl_vars::cpl_putlnd(), mod_cpl_vars::cpl_putocn(), mod_cpl_vars::cpl_puturb(), mod_mkinit::flux_setup(), mod_atmos_phy_sf_driver::history_output(), mod_land_driver::land_driver_calc_tendency(), mod_realinput::land_interporation(), scale_land_phy_snow_ky90::land_phy_snow_ky90(), mod_mkinit::land_setup(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_restart_read(), mod_land_vars::land_vars_restart_write(), mod_land_vars::land_vars_total(), mod_ocean_driver::ocean_driver_calc_tendency(), scale_ocean_phy_albedo::ocean_phy_albedo_const(), scale_ocean_phy_albedo::ocean_phy_albedo_seaice(), mod_mkinit::ocean_setup(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_restart_read(), mod_ocean_vars::ocean_vars_restart_write(), mod_ocean_vars::ocean_vars_total(), mod_realinput_scale::parentlandinputscale(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_scale::parentoceaninputscale(), mod_realinput_wrfarw::parentoceaninputwrfarw(), mod_realinput::realinput_surface(), scale_urban_dyn_kusaka01::urban_dyn_kusaka01(), mod_mkinit::urban_setup(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_restart_read(), mod_urban_vars::urban_vars_restart_write(), and mod_urban_vars::urban_vars_total().

  integer,  public, parameter :: i_r_ir      = 1 ! infrared         lamda > 4.0um

i_r_nir

integer, parameter, public scale_cpl_sfc_index::i_r_nir = 2

Definition at line 30 of file scale_cpl_sfc_index.F90.

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), scale_atmos_phy_rd_offline::atmos_phy_rd_offline_flux(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_checktotal(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_read(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_checktotal(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), scale_cpl_phy_sfc_fixed_temp::cpl_phy_sfc_fixed_temp(), scale_cpl_phy_sfc_skin::cpl_phy_sfc_skin(), mod_mkinit::flux_setup(), mod_atmos_phy_sf_driver::history_output(), mod_land_driver::land_driver_calc_tendency(), mod_realinput::land_interporation(), scale_land_phy_snow_ky90::land_phy_snow_ky90(), mod_mkinit::land_setup(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_restart_read(), mod_land_vars::land_vars_restart_write(), mod_land_vars::land_vars_total(), scale_ocean_phy_albedo::ocean_phy_albedo_const(), scale_ocean_phy_albedo::ocean_phy_albedo_seaice(), mod_mkinit::ocean_setup(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_restart_read(), mod_ocean_vars::ocean_vars_restart_write(), mod_ocean_vars::ocean_vars_total(), mod_realinput_scale::parentlandinputscale(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_scale::parentoceaninputscale(), mod_realinput_wrfarw::parentoceaninputwrfarw(), mod_realinput::realinput_surface(), scale_urban_dyn_kusaka01::urban_dyn_kusaka01(), mod_mkinit::urban_setup(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_restart_read(), mod_urban_vars::urban_vars_restart_write(), and mod_urban_vars::urban_vars_total().

  integer,  public, parameter :: i_r_nir     = 2 ! near-IR  4.0um > lamda > 0.7um

i_r_vis

integer, parameter, public scale_cpl_sfc_index::i_r_vis = 3

Definition at line 31 of file scale_cpl_sfc_index.F90.

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), scale_atmos_phy_rd_offline::atmos_phy_rd_offline_flux(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_checktotal(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_fillhalo(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_read(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_checktotal(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_fillhalo(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), mod_cpl_vars::cpl_getatm_lnd(), mod_cpl_vars::cpl_getatm_ocn(), mod_cpl_vars::cpl_getatm_urb(), mod_cpl_vars::cpl_getsfc_atm(), scale_cpl_phy_sfc_fixed_temp::cpl_phy_sfc_fixed_temp(), scale_cpl_phy_sfc_skin::cpl_phy_sfc_skin(), mod_cpl_vars::cpl_putatm(), mod_cpl_vars::cpl_putlnd(), mod_cpl_vars::cpl_putocn(), mod_cpl_vars::cpl_puturb(), mod_mkinit::flux_setup(), mod_atmos_phy_sf_driver::history_output(), mod_land_driver::land_driver_calc_tendency(), mod_realinput::land_interporation(), scale_land_phy_snow_ky90::land_phy_snow_ky90(), mod_mkinit::land_setup(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_restart_read(), mod_land_vars::land_vars_restart_write(), mod_land_vars::land_vars_total(), mod_ocean_driver::ocean_driver_calc_tendency(), scale_ocean_phy_albedo::ocean_phy_albedo_const(), scale_ocean_phy_albedo::ocean_phy_albedo_seaice(), mod_mkinit::ocean_setup(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_restart_read(), mod_ocean_vars::ocean_vars_restart_write(), mod_ocean_vars::ocean_vars_total(), mod_realinput_scale::parentlandinputscale(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_scale::parentoceaninputscale(), mod_realinput_wrfarw::parentoceaninputwrfarw(), mod_realinput::realinput_surface(), scale_urban_dyn_kusaka01::urban_dyn_kusaka01(), mod_mkinit::urban_setup(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_restart_read(), mod_urban_vars::urban_vars_restart_write(), and mod_urban_vars::urban_vars_total().

  integer,  public, parameter :: i_r_vis     = 3 ! visible  0.7um > lamda

rad_rgn_boundary_vis

real(rp), parameter, public scale_cpl_sfc_index::rad_rgn_boundary_vis = 0.7_RP

Definition at line 33 of file scale_cpl_sfc_index.F90.

  real(RP), public, parameter :: rad_rgn_boundary_vis = 0.7_rp ! [um]

rad_rgn_boundary_ir

real(rp), parameter, public scale_cpl_sfc_index::rad_rgn_boundary_ir = 4.0_RP

Definition at line 34 of file scale_cpl_sfc_index.F90.

  real(RP), public, parameter :: rad_rgn_boundary_ir  = 4.0_rp ! [um]

n_rad_dir

integer, parameter, public scale_cpl_sfc_index::n_rad_dir = 2

Definition at line 36 of file scale_cpl_sfc_index.F90.

Referenced by mod_atmos_phy_rd_vars::atmos_phy_rd_vars_setup(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), mod_cpl_vars::cpl_vars_setup(), mod_land_vars::land_vars_setup(), mod_ocean_vars::ocean_vars_setup(), mod_realinput::realinput_surface(), and mod_urban_vars::urban_vars_setup().

  integer,  public, parameter :: n_rad_dir   = 2 ! number of the radiation direction

i_r_direct

integer, parameter, public scale_cpl_sfc_index::i_r_direct = 1

Definition at line 37 of file scale_cpl_sfc_index.F90.

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), scale_atmos_phy_rd_offline::atmos_phy_rd_offline_flux(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_checktotal(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_fillhalo(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_read(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_checktotal(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_fillhalo(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), mod_cpl_vars::cpl_getatm_lnd(), mod_cpl_vars::cpl_getatm_ocn(), mod_cpl_vars::cpl_getatm_urb(), mod_cpl_vars::cpl_getsfc_atm(), scale_cpl_phy_sfc_fixed_temp::cpl_phy_sfc_fixed_temp(), scale_cpl_phy_sfc_skin::cpl_phy_sfc_skin(), mod_cpl_vars::cpl_putatm(), mod_cpl_vars::cpl_putlnd(), mod_cpl_vars::cpl_putocn(), mod_cpl_vars::cpl_puturb(), mod_mkinit::flux_setup(), mod_atmos_phy_sf_driver::history_output(), mod_land_driver::land_driver_calc_tendency(), mod_realinput::land_interporation(), scale_land_phy_snow_ky90::land_phy_snow_ky90(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_restart_read(), mod_land_vars::land_vars_restart_write(), mod_land_vars::land_vars_total(), mod_ocean_driver::ocean_driver_calc_tendency(), scale_ocean_phy_albedo::ocean_phy_albedo_const(), scale_ocean_phy_albedo_nakajima00::ocean_phy_albedo_nakajima00(), scale_ocean_phy_albedo::ocean_phy_albedo_seaice(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_restart_read(), mod_ocean_vars::ocean_vars_restart_write(), mod_ocean_vars::ocean_vars_total(), mod_realinput_scale::parentlandinputscale(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_scale::parentoceaninputscale(), mod_realinput_wrfarw::parentoceaninputwrfarw(), mod_realinput::realinput_surface(), scale_urban_dyn_kusaka01::urban_dyn_kusaka01(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_restart_read(), mod_urban_vars::urban_vars_restart_write(), and mod_urban_vars::urban_vars_total().

  integer,  public, parameter :: i_r_direct  = 1

i_r_diffuse

integer, parameter, public scale_cpl_sfc_index::i_r_diffuse = 2

Definition at line 38 of file scale_cpl_sfc_index.F90.

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), scale_atmos_phy_rd_offline::atmos_phy_rd_offline_flux(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_checktotal(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_fillhalo(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_read(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_checktotal(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_fillhalo(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), mod_cpl_vars::cpl_getatm_lnd(), mod_cpl_vars::cpl_getatm_ocn(), mod_cpl_vars::cpl_getatm_urb(), mod_cpl_vars::cpl_getsfc_atm(), scale_cpl_phy_sfc_fixed_temp::cpl_phy_sfc_fixed_temp(), scale_cpl_phy_sfc_skin::cpl_phy_sfc_skin(), mod_cpl_vars::cpl_putatm(), mod_cpl_vars::cpl_putlnd(), mod_cpl_vars::cpl_putocn(), mod_cpl_vars::cpl_puturb(), mod_mkinit::flux_setup(), mod_atmos_phy_sf_driver::history_output(), mod_land_driver::land_driver_calc_tendency(), mod_realinput::land_interporation(), scale_land_phy_snow_ky90::land_phy_snow_ky90(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_restart_read(), mod_land_vars::land_vars_restart_write(), mod_land_vars::land_vars_total(), mod_ocean_driver::ocean_driver_calc_tendency(), scale_ocean_phy_albedo::ocean_phy_albedo_const(), scale_ocean_phy_albedo_nakajima00::ocean_phy_albedo_nakajima00(), scale_ocean_phy_albedo::ocean_phy_albedo_seaice(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_restart_read(), mod_ocean_vars::ocean_vars_restart_write(), mod_ocean_vars::ocean_vars_total(), mod_realinput_scale::parentlandinputscale(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_scale::parentoceaninputscale(), mod_realinput_wrfarw::parentoceaninputwrfarw(), mod_realinput::realinput_surface(), scale_urban_dyn_kusaka01::urban_dyn_kusaka01(), mod_urban_driver::urban_surface_get(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_restart_read(), mod_urban_vars::urban_vars_restart_write(), and mod_urban_vars::urban_vars_total().

  integer,  public, parameter :: i_r_diffuse = 2