scale_ocean_phy_albedo Module Reference

module ocean / physics / surface albedo More...

Functions/Subroutines
subroutine, public	ocean_phy_albedo_const_setup
subroutine, public	ocean_phy_albedo_seaice_setup
subroutine, public	ocean_phy_albedo_const (OIA, OIS, OIE, OJA, OJS, OJE, SFC_albedo)
subroutine, public	ocean_phy_albedo_seaice (OIA, OIS, OIE, OJA, OJS, OJE, SFC_albedo)

Detailed Description

module ocean / physics / surface albedo

Description

Ocean surface albedo common module

Author

Team SCALE

NAMELIST

• PARAM_OCEAN_PHY_ALBEDO_const

  name	type	default value	comment
  OCEAN_PHY_ALBEDO_IR_DIR	real(RP)	0.05_RP
  OCEAN_PHY_ALBEDO_IR_DIF	real(RP)	0.05_RP
  OCEAN_PHY_ALBEDO_NIR_DIR	real(RP)	0.07_RP
  OCEAN_PHY_ALBEDO_NIR_DIF	real(RP)	0.06_RP
  OCEAN_PHY_ALBEDO_VIS_DIR	real(RP)	0.07_RP
  OCEAN_PHY_ALBEDO_VIS_DIF	real(RP)	0.06_RP

  
  
• PARAM_OCEAN_PHY_ALBEDO_seaice

  name	type	default value	comment
  OCEAN_PHY_ALBEDO_SEAICE_IR_DIR	real(RP)	0.05_RP
  OCEAN_PHY_ALBEDO_SEAICE_IR_DIF	real(RP)	0.05_RP
  OCEAN_PHY_ALBEDO_SEAICE_NIR_DIR	real(RP)	0.60_RP
  OCEAN_PHY_ALBEDO_SEAICE_NIR_DIF	real(RP)	0.60_RP
  OCEAN_PHY_ALBEDO_SEAICE_VIS_DIR	real(RP)	0.80_RP
  OCEAN_PHY_ALBEDO_SEAICE_VIS_DIF	real(RP)	0.80_RP

  
  

History Output

No history output

Function/Subroutine Documentation

ocean_phy_albedo_const_setup()

subroutine, public scale_ocean_phy_albedo::ocean_phy_albedo_const_setup

Definition at line 63 of file scale_ocean_phy_albedo.F90.

    use scale_prc, only: &
       prc_abort
    implicit none
 
    namelist / param_ocean_phy_albedo_const / &
       ocean_phy_albedo_ir_dir,  &
       ocean_phy_albedo_ir_dif,  &
       ocean_phy_albedo_nir_dir, &
       ocean_phy_albedo_nir_dif, &
       ocean_phy_albedo_vis_dir, &
       ocean_phy_albedo_vis_dif
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("OCEAN_PHY_ALBEDO_const_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_ocean_phy_albedo_const,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("OCEAN_PHY_ALBEDO_const_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("OCEAN_PHY_ALBEDO_const_setup",*) 'Not appropriate names in namelist PARAM_OCEAN_PHY_ALBEDO_const. Check!'
       call prc_abort
    endif
    log_nml(param_ocean_phy_albedo_const)
 
    return

References scale_io::io_fid_conf, and scale_prc::prc_abort().

Referenced by mod_ocean_driver::ocean_driver_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

ocean_phy_albedo_seaice_setup()

subroutine, public scale_ocean_phy_albedo::ocean_phy_albedo_seaice_setup

Definition at line 97 of file scale_ocean_phy_albedo.F90.

    use scale_prc, only: &
       prc_abort
    implicit none
 
    namelist / param_ocean_phy_albedo_seaice / &
       ocean_phy_albedo_seaice_ir_dir,  &
       ocean_phy_albedo_seaice_ir_dif,  &
       ocean_phy_albedo_seaice_nir_dir, &
       ocean_phy_albedo_seaice_nir_dif, &
       ocean_phy_albedo_seaice_vis_dir, &
       ocean_phy_albedo_seaice_vis_dif
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("OCEAN_PHY_ALBEDO_seaice_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_ocean_phy_albedo_seaice,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("OCEAN_PHY_ALBEDO_seaice_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("OCEAN_PHY_ALBEDO_seaice_setup",*) 'Not appropriate names in namelist PARAM_OCEAN_PHY_ALBEDO_seaice. Check!'
       call prc_abort
    endif
    log_nml(param_ocean_phy_albedo_seaice)
 
    return

References scale_io::io_fid_conf, and scale_prc::prc_abort().

Referenced by mod_ocean_driver::ocean_driver_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

ocean_phy_albedo_const()

subroutine, public scale_ocean_phy_albedo::ocean_phy_albedo_const	(	integer, intent(in)	OIA,
		integer, intent(in)	OIS,
		integer, intent(in)	OIE,
		integer, intent(in)	OJA,
		integer, intent(in)	OJS,
		integer, intent(in)	OJE,
		real(rp), dimension(oia,oja,n_rad_dir,n_rad_rgn), intent(out)	SFC_albedo
	)

Definition at line 134 of file scale_ocean_phy_albedo.F90.

    implicit none
 
    integer,  intent(in)  :: OIA, OIS, OIE
    integer,  intent(in)  :: OJA, OJS, OJE
    real(RP), intent(out) :: SFC_albedo(OIA,OJA,N_RAD_DIR,N_RAD_RGN) ! surface albedo (0-1)
 
    integer :: i, j
    !---------------------------------------------------------------------------
 
    do j = ojs, oje
    do i = ois, oie
       sfc_albedo(i,j,i_r_direct ,i_r_ir ) = ocean_phy_albedo_ir_dir
       sfc_albedo(i,j,i_r_diffuse,i_r_ir ) = ocean_phy_albedo_ir_dif
       sfc_albedo(i,j,i_r_direct ,i_r_nir) = ocean_phy_albedo_nir_dir
       sfc_albedo(i,j,i_r_diffuse,i_r_nir) = ocean_phy_albedo_nir_dif
       sfc_albedo(i,j,i_r_direct ,i_r_vis) = ocean_phy_albedo_vis_dir
       sfc_albedo(i,j,i_r_diffuse,i_r_vis) = ocean_phy_albedo_vis_dif
    enddo
    enddo
 
    return

References scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, and scale_cpl_sfc_index::i_r_vis.

Referenced by mod_ocean_driver::ocean_driver_calc_tendency().

Here is the caller graph for this function:

ocean_phy_albedo_seaice()

subroutine, public scale_ocean_phy_albedo::ocean_phy_albedo_seaice	(	integer, intent(in)	OIA,
		integer, intent(in)	OIS,
		integer, intent(in)	OIE,
		integer, intent(in)	OJA,
		integer, intent(in)	OJS,
		integer, intent(in)	OJE,
		real(rp), dimension(oia,oja,n_rad_dir,n_rad_rgn), intent(out)	SFC_albedo
	)

Definition at line 162 of file scale_ocean_phy_albedo.F90.

    implicit none
 
    integer,  intent(in)  :: OIA, OIS, OIE
    integer,  intent(in)  :: OJA, OJS, OJE
    real(RP), intent(out) :: SFC_albedo(OIA,OJA,N_RAD_DIR,N_RAD_RGN) ! surface albedo (0-1)
 
    integer :: i, j
    !---------------------------------------------------------------------------
 
    do j = ojs, oje
    do i = ois, oie
       sfc_albedo(i,j,i_r_direct ,i_r_ir ) = ocean_phy_albedo_seaice_ir_dir
       sfc_albedo(i,j,i_r_diffuse,i_r_ir ) = ocean_phy_albedo_seaice_ir_dif
       sfc_albedo(i,j,i_r_direct ,i_r_nir) = ocean_phy_albedo_seaice_nir_dir
       sfc_albedo(i,j,i_r_diffuse,i_r_nir) = ocean_phy_albedo_seaice_nir_dif
       sfc_albedo(i,j,i_r_direct ,i_r_vis) = ocean_phy_albedo_seaice_vis_dir
       sfc_albedo(i,j,i_r_diffuse,i_r_vis) = ocean_phy_albedo_seaice_vis_dif
    enddo
    enddo
 
    return

References scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, and scale_cpl_sfc_index::i_r_vis.

Referenced by mod_ocean_driver::ocean_driver_calc_tendency().

Here is the caller graph for this function: