scale_ocean_sfc Module Reference

module OCEAN / Surface fluxes More...

Functions/Subroutines
subroutine, public	ocean_sfc_setup (OCEAN_TYPE)
subroutine, public	ocean_sfc_simplealbedo (SFC_albedo_t, SFC_albedo, cosSZA, dt)

Variables
procedure(ocnsfc), pointer, public	ocean_sfc => NULL()

Detailed Description

module OCEAN / Surface fluxes

Description

Ocean surface flux

Author

Team SCALE

Function/Subroutine Documentation

ocean_sfc_setup()

subroutine, public scale_ocean_sfc::ocean_sfc_setup

(

character(len=*), intent(in)

OCEAN_TYPE

)

Definition at line 122 of file scale_ocean_sfc.F90.

References ocean_sfc, scale_ocean_sfc_const::ocean_sfc_const(), scale_ocean_sfc_const::ocean_sfc_const_setup(), scale_ocean_sfc_slab::ocean_sfc_slab(), scale_ocean_sfc_slab::ocean_sfc_slab_setup(), and scale_process::prc_mpistop().

Referenced by mod_ocean_phy_driver::ocean_phy_driver_setup().

    use scale_process, only: &
       prc_mpistop
    use scale_ocean_sfc_const, only: &
       ocean_sfc_const_setup, &
       ocean_sfc_const
    use scale_ocean_sfc_slab, only: &
       ocean_sfc_slab_setup, &
       ocean_sfc_slab
    implicit none

    character(len=*), intent(in) :: OCEAN_TYPE
    !---------------------------------------------------------------------------

    select case( ocean_type )
    case( 'CONST' )
       call ocean_sfc_const_setup( ocean_type )
       ocean_sfc => ocean_sfc_const
    case( 'SLAB', 'FILE' )
       call ocean_sfc_slab_setup( ocean_type )
       ocean_sfc => ocean_sfc_slab
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

ocean_sfc_simplealbedo()

subroutine, public scale_ocean_sfc::ocean_sfc_simplealbedo	(	real(rp), dimension(ia,ja,2), intent(out)	SFC_albedo_t,
		real(rp), dimension (ia,ja,2), intent(in)	SFC_albedo,
		real(rp), dimension (ia,ja), intent(in)	cosSZA,
		real(dp), intent(in)	dt
	)

Definition at line 153 of file scale_ocean_sfc.F90.

References scale_const::const_i_lw, scale_const::const_i_sw, scale_grid_index::ie, scale_grid_index::is, scale_grid_index::je, and scale_grid_index::js.

Referenced by mod_ocean_phy_driver::ocean_phy_driver().

    use scale_grid_index
    use scale_const, only: &
       i_sw  => const_i_sw, &
       i_lw  => const_i_lw
    implicit none

    ! arguments
    real(RP), intent(out) :: SFC_albedo_t(IA,JA,2) ! tendency of sea surface albedo (0-1)
    real(RP), intent(in)  :: SFC_albedo  (IA,JA,2) ! sea surface                    (0-1)
    real(RP), intent(in)  :: cosSZA      (IA,JA)   ! cos(solar zenith angle)        (0-1)
    real(DP), intent(in)  :: dt                    ! delta time

    ! works
    real(RP) :: SFC_albedo1(IA,JA,2)
    real(RP) :: am1

    real(RP), parameter :: c_ocean_albedo(3) = (/ -0.747900_rp, &
                                                  -4.677039_rp, &
                                                   1.583171_rp  /)

    integer :: i, j
    !---------------------------------------------------------------------------

    do j = js, je
    do i = is, ie
       am1 = max( min( cossza(i,j), 0.961_rp ), 0.0349_rp )

       ! SFC_albedo1(i,j,I_LW) = 0.5_RP do nothing
       sfc_albedo1(i,j,i_sw) = exp( ( c_ocean_albedo(3)*am1 + c_ocean_albedo(2) )*am1 + c_ocean_albedo(1) )
    enddo
    enddo

    ! calculate tendency
    do j = js, je
    do i = is, ie
       sfc_albedo_t(i,j,i_lw) = 0.0_rp
       sfc_albedo_t(i,j,i_sw) = ( sfc_albedo1(i,j,i_sw) - sfc_albedo(i,j,i_sw) ) / dt
    enddo
    enddo

    return

Here is the caller graph for this function:

Variable Documentation

ocean_sfc

procedure(ocnsfc), pointer, public scale_ocean_sfc::ocean_sfc => NULL()

Definition at line 101 of file scale_ocean_sfc.F90.

Referenced by mod_ocean_phy_driver::ocean_phy_driver(), and ocean_sfc_setup().

  procedure(ocnsfc), pointer :: OCEAN_SFC => null()