scale_land_phy_const.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module scale_land_phy_const
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  use scale_debug
  use scale_grid_index
  use scale_land_grid_index
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: land_phy_const_setup
  public :: land_phy_const

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine land_phy_const_setup( LAND_TYPE )
    implicit none

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

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[CONST] / Categ[LAND PHY] / Origin[SCALElib]'

    return
  end subroutine land_phy_const_setup

  !-----------------------------------------------------------------------------
  subroutine land_phy_const( &
       TEMP_t,       &
       WATER_t,      &
       TEMP,         &
       WATER,        &
       WaterLimit,   &
       ThermalCond,  &
       HeatCapacity, &
       WaterDiff,    &
       SFLX_GH,      &
       SFLX_prec,    &
       SFLX_evap,    &
       CDZ,          &
       dt            )
    implicit none

    ! arguments
    real(RP), intent(out) :: temp_t      (lkmax,ia,ja)
    real(RP), intent(out) :: water_t     (lkmax,ia,ja)

    real(RP), intent(in)  :: temp        (lkmax,ia,ja)
    real(RP), intent(in)  :: water       (lkmax,ia,ja)
    real(RP), intent(in)  :: waterlimit  (ia,ja)
    real(RP), intent(in)  :: thermalcond (ia,ja)
    real(RP), intent(in)  :: heatcapacity(ia,ja)
    real(RP), intent(in)  :: waterdiff   (ia,ja)
    real(RP), intent(in)  :: sflx_gh     (ia,ja)
    real(RP), intent(in)  :: sflx_prec   (ia,ja)
    real(RP), intent(in)  :: sflx_evap   (ia,ja)
    real(RP), intent(in)  :: cdz         (lkmax)
    real(DP), intent(in)  :: dt
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*) '*** Land physics step: Const'

    temp_t(:,:,:) = 0.0_rp
    water_t(:,:,:) = 0.0_rp

    return
  end subroutine land_phy_const

end module scale_land_phy_const