scale_land_phy_matsiro Module Reference

module land / physics / MATSIRO More...

Functions/Subroutines
subroutine, public	land_phy_matsiro_setup (LAND_TYPE)
	Setup. More...
subroutine, public	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)
	Physical processes for land submodel. More...

Detailed Description

module land / physics / MATSIRO

Description

matsiro-type land physics module

Author

Team SCALE

NAMELIST

• PARAM_LAND_MATSIRO

  name	type	default value	comment
  DUMMY	logical

  
  

History Output

No history output

Function/Subroutine Documentation

land_phy_matsiro_setup()

subroutine, public scale_land_phy_matsiro::land_phy_matsiro_setup

(

character(len=*), intent(in)

LAND_TYPE

)

Setup.

Definition at line 48 of file scale_land_phy_matsiro.F90.

    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

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

Here is the call graph for this function:

land_phy_matsiro()

subroutine, public scale_land_phy_matsiro::land_phy_matsiro	(	real(rp), dimension (lkmax,lia,lja), intent(out)	LAND_TEMP_t,
		real(rp), dimension (lkmax,lia,lja), intent(out)	LAND_WATER_t,
		real(rp), dimension (lkmax,lia,lja), intent(in)	LAND_TEMP,
		real(rp), dimension (lkmax,lia,lja), intent(in)	LAND_WATER,
		real(rp), dimension (lia,lja), intent(in)	LAND_WaterLimit,
		real(rp), dimension (lia,lja), intent(in)	LAND_ThermalCond,
		real(rp), dimension(lia,lja), intent(in)	LAND_HeatCapacity,
		real(rp), dimension (lia,lja), intent(in)	LAND_WaterDiff,
		real(rp), dimension (lia,lja), intent(in)	LAND_SFLX_GH,
		real(rp), dimension (lia,lja), intent(in)	LAND_SFLX_prec,
		real(rp), dimension (lia,lja), intent(in)	LAND_SFLX_evap,
		real(rp), dimension (lkmax), intent(in)	CDZ,
		real(dp), intent(in)	dt
	)

Physical processes for land submodel.

Definition at line 98 of file scale_land_phy_matsiro.F90.

    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