scale_land_phy_matsiro.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale_land_phy_matsiro
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  use scale_debug
  use scale_land_grid_cartesc_index
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: land_phy_matsiro_setup
  public :: land_phy_matsiro
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine land_phy_matsiro_setup( LAND_TYPE )
    use scale_prc, only: &
       prc_abort
    implicit none
 
    character(len=*), intent(in) :: land_type
 
    logical :: dummy
 
    namelist / param_land_matsiro / &
       dummy
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("LAND_PHY_MATSIRO_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land_matsiro,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("LAND_PHY_MATSIRO_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("LAND_PHY_MATSIRO_setup",*) 'Not appropriate names in namelist PARAM_LAND_MATSIRO. Check!'
       call prc_abort
    endif
    log_nml(param_land_matsiro)
 
    log_error("LAND_PHY_MATSIRO", *) "This scheme is under development"
    call prc_abort
 
    return
  end subroutine land_phy_matsiro_setup
 
  !-----------------------------------------------------------------------------
  subroutine land_phy_matsiro( &
       LAND_TEMP_t,       &
       LAND_WATER_t,      &
       LAND_TEMP,         &
       LAND_WATER,        &
       LAND_WaterLimit,   &
       LAND_ThermalCond,  &
       LAND_HeatCapacity, &
       LAND_WaterDiff,    &
       LAND_SFLX_GH,      &
       LAND_SFLX_prec,    &
       LAND_SFLX_evap,    &
       CDZ,               &
       dt                 )
    use scale_atmos_grid_cartesc_index
    implicit none
 
    ! arguments
    real(rp), intent(out) :: land_temp_t      (lkmax,lia,lja)
    real(rp), intent(out) :: land_water_t     (lkmax,lia,lja)
 
    real(rp), intent(in)  :: land_temp        (lkmax,lia,lja)
    real(rp), intent(in)  :: land_water       (lkmax,lia,lja)
    real(rp), intent(in)  :: land_waterlimit  (lia,lja)
    real(rp), intent(in)  :: land_thermalcond (lia,lja)
    real(rp), intent(in)  :: land_heatcapacity(lia,lja)
    real(rp), intent(in)  :: land_waterdiff   (lia,lja)
    real(rp), intent(in)  :: land_sflx_gh     (lia,lja)
    real(rp), intent(in)  :: land_sflx_prec   (lia,lja)
    real(rp), intent(in)  :: land_sflx_evap   (lia,lja)
    real(rp), intent(in)  :: cdz              (lkmax)
    real(dp), intent(in)  :: dt
    !---------------------------------------------------------------------------
 
    log_progress(*) 'land / physics / Matsiro'
 
    land_temp_t(:,:,:) = 0.0_rp
    land_water_t(:,:,:) = 0.0_rp
 
    return
  end subroutine land_phy_matsiro
 
end module scale_land_phy_matsiro