SCALE-RM
Functions/Subroutines
scale_land_phy_matsiro Module Reference

module LAND / Physics Matsiro model 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 model

Description
matsiro-type land physics module
Author
Team SCALE
NAMELIST
  • PARAM_LAND_MATSIRO
    nametypedefault valuecomment
    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.

References scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, and scale_process::prc_mpistop().

Referenced by scale_land_phy::land_phy_setup().

48  use scale_process, only: &
50  implicit none
51 
52  character(len=*), intent(in) :: land_type
53 
54  logical :: dummy
55 
56  namelist / param_land_matsiro / &
57  dummy
58 
59  integer :: ierr
60  !---------------------------------------------------------------------------
61 
62  if( io_l ) write(io_fid_log,*)
63  if( io_l ) write(io_fid_log,*) '++++++ Module[MATSIRO] / Categ[LAND PHY] / Origin[SCALElib]'
64 
65  !--- read namelist
66  rewind(io_fid_conf)
67  read(io_fid_conf,nml=param_land_matsiro,iostat=ierr)
68  if( ierr < 0 ) then !--- missing
69  if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
70  elseif( ierr > 0 ) then !--- fatal error
71  write(*,*) 'xxx Not appropriate names in namelist PARAM_LAND_MATSIRO. Check!'
72  call prc_mpistop
73  endif
74  if( io_lnml ) write(io_fid_log,nml=param_land_matsiro)
75 
76  return
subroutine, public prc_mpistop
Abort MPI.
module PROCESS
integer, public io_fid_conf
Config file ID.
Definition: scale_stdio.F90:55
Here is the call graph for this function:
Here is the caller graph for this function:

◆ land_phy_matsiro()

subroutine, public scale_land_phy_matsiro::land_phy_matsiro ( real(rp), dimension (lkmax,ia,ja), intent(out)  LAND_TEMP_t,
real(rp), dimension (lkmax,ia,ja), intent(out)  LAND_WATER_t,
real(rp), dimension (lkmax,ia,ja), intent(in)  LAND_TEMP,
real(rp), dimension (lkmax,ia,ja), intent(in)  LAND_WATER,
real(rp), dimension (ia,ja), intent(in)  LAND_WaterLimit,
real(rp), dimension (ia,ja), intent(in)  LAND_ThermalCond,
real(rp), dimension(ia,ja), intent(in)  LAND_HeatCapacity,
real(rp), dimension (ia,ja), intent(in)  LAND_WaterDiff,
real(rp), dimension (ia,ja), intent(in)  LAND_SFLX_GH,
real(rp), dimension (ia,ja), intent(in)  LAND_SFLX_prec,
real(rp), dimension (ia,ja), 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 95 of file scale_land_phy_matsiro.F90.

References scale_stdio::io_fid_log, and scale_stdio::io_l.

Referenced by scale_land_phy::land_phy_setup().

96  implicit none
97 
98  ! arguments
99  real(RP), intent(out) :: land_temp_t (lkmax,ia,ja)
100  real(RP), intent(out) :: land_water_t (lkmax,ia,ja)
101 
102  real(RP), intent(in) :: land_temp (lkmax,ia,ja)
103  real(RP), intent(in) :: land_water (lkmax,ia,ja)
104  real(RP), intent(in) :: land_waterlimit (ia,ja)
105  real(RP), intent(in) :: land_thermalcond (ia,ja)
106  real(RP), intent(in) :: land_heatcapacity(ia,ja)
107  real(RP), intent(in) :: land_waterdiff (ia,ja)
108  real(RP), intent(in) :: land_sflx_gh (ia,ja)
109  real(RP), intent(in) :: land_sflx_prec (ia,ja)
110  real(RP), intent(in) :: land_sflx_evap (ia,ja)
111  real(RP), intent(in) :: cdz (lkmax)
112  real(DP), intent(in) :: dt
113  !---------------------------------------------------------------------------
114 
115  if( io_l ) write(io_fid_log,*) '*** Land step: Matsiro'
116 
117  land_temp_t(:,:,:) = 0.0_rp
118  land_water_t(:,:,:) = 0.0_rp
119 
120  return
module grid index
integer, public ia
of x whole cells (local, with HALO)
integer, public ja
of y whole cells (local, with HALO)
Here is the caller graph for this function: