scale_land_grid_index Module Reference

module land grid index More...

Functions/Subroutines
subroutine, public	land_grid_index_setup
	Setup. More...

Variables
integer, public	lkmax = 1
integer, public	lks
integer, public	lke

Detailed Description

module land grid index

Description

Grid Index module for land

Author

Team SCALE

Function/Subroutine Documentation

land_grid_index_setup()

subroutine, public scale_land_grid_index::land_grid_index_setup

(

)

Setup.

Definition at line 49 of file scale_land_grid_index.F90.

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

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_land_index / &
       lkmax

    integer :: ierr
    !---------------------------------------------------------------------------

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

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land_index,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       write(*,*) 'xxx Not appropriate names in namelist PARAM_LAND_INDEX. Check!'
       call prc_mpistop
    endif
    if( io_lnml ) write(io_fid_log,nml=param_land_index)

    lks  = 1
    lke  = lkmax

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Land grid index information ***'
    if( io_l ) write(io_fid_log,'(1x,A,I6,A,I6,A,I6)') '*** z-axis levels :', lkmax

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

lkmax

integer, public scale_land_grid_index::lkmax = 1

Definition at line 31 of file scale_land_grid_index.F90.

Referenced by scale_external_input::extin_update_3d(), scale_fileio::fileio_read_3d(), scale_fileio::fileio_write_3d(), scale_fileio::fileio_write_var_3d(), scale_history::hist_put_3d(), scale_interpolation_nest::intrpnest_interp_fact_llz(), land_grid_index_setup(), mod_realinput::land_interporation(), scale_land_phy_slab::land_phy_slab(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_setup(), mod_realinput::parentatomsetup(), and mod_realinput::realinput_surface().

  integer, public :: lkmax = 1 ! # of computational cells: z for land

lks

integer, public scale_land_grid_index::lks

Definition at line 33 of file scale_land_grid_index.F90.

Referenced by scale_external_input::extin_update_3d(), scale_fileio::fileio_def_axes(), scale_fileio::fileio_read_3d(), scale_fileio::fileio_set_axes(), scale_fileio::fileio_write_3d(), scale_fileio::fileio_write_axes(), scale_fileio::fileio_write_var_3d(), scale_history::hist_put_3d(), scale_history::hist_switch(), mod_land_driver::land_driver(), land_grid_index_setup(), scale_land_grid::land_grid_setup(), mod_land_phy_driver::land_phy_driver(), scale_land_phy_slab::land_phy_slab(), and mod_land_vars::land_vars_total().

  integer, public :: lks       ! start point of inner domain: z for land, local

lke

integer, public scale_land_grid_index::lke

Definition at line 34 of file scale_land_grid_index.F90.

Referenced by scale_external_input::extin_update_3d(), scale_fileio::fileio_def_axes(), scale_fileio::fileio_read_3d(), scale_fileio::fileio_set_axes(), scale_fileio::fileio_write_3d(), scale_fileio::fileio_write_axes(), scale_fileio::fileio_write_var_3d(), scale_history::hist_put_3d(), scale_history::hist_switch(), mod_land_driver::land_driver(), land_grid_index_setup(), scale_land_grid::land_grid_setup(), mod_land_phy_driver::land_phy_driver(), scale_land_phy_slab::land_phy_slab(), and mod_land_vars::land_vars_total().

  integer, public :: lke       ! end   point of inner domain: z for land, local