scale_land_grid_cartesc_index Module Reference

module land / grid / cartesianC / index More...

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

Variables
integer, public	lkmax = -1
integer, public	limax = -1
integer, public	ljmax = -1
integer, public	lka = -1
integer, public	lks
integer, public	lke
integer, public	lia
integer, public	lis
integer, public	lie
integer, public	lja
integer, public	ljs
integer, public	lje

Detailed Description

module land / grid / cartesianC / index

Description

Grid Index module for land

Author

Team SCALE

NAMELIST

• PARAM_LAND_GRID_CARTESC_INDEX

  name	type	default value	comment
  LKMAX	integer	-1	# of computational cells: z for land

  
  

History Output

No history output

Function/Subroutine Documentation

land_grid_cartesc_index_setup()

subroutine, public scale_land_grid_cartesc_index::land_grid_cartesc_index_setup

Setup.

Definition at line 63 of file scale_land_grid_cartesC_index.F90.

    use scale_prc, only: &
       prc_abort
    use scale_atmos_grid_cartesc_index, only: &
       imax,       &
       ia, is, ie, &
       jmax,       &
       ja, js, je
    implicit none
 
    namelist / param_land_grid_cartesc_index / &
       lkmax
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("LAND_GRID_CARTESC_INDEX_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land_grid_cartesc_index,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("LAND_GRID_CARTESC_INDEX_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("LAND_GRID_CARTESC_INDEX_setup",*) 'Not appropriate names in namelist PARAM_LAND_GRID_CARTESC_INDEX. Check!'
       call prc_abort
    endif
    log_nml(param_land_grid_cartesc_index)
 
    if ( lkmax < 1 ) then
       log_error("LAND_GRID_CARTESC_INDEX_setup",*) 'LKMAX must be >= 1 ', lkmax
       call prc_abort
    end if
 
    lks  = 1
    lke  = lkmax
    lka  = lkmax
 
    log_newline
    log_info("LAND_GRID_CARTESC_INDEX_setup",*) 'Land grid index information '
    log_info_cont('(1x,A,I6,A,I6,A,I6)') 'z-axis levels :', lkmax
 
    ! at this moment horizontal grid is same as that in atmosphere
    limax = imax
    lia = ia
    lis = is
    lie = ie
 
    ljmax = jmax
    lja = ja
    ljs = js
    lje = je
 
    !$acc update device(LKMAX, LIMAX, LJMAX)
    !$acc update device(LKA, LIA, LJA, LKS, LKE, LIS, LIE, LJS, LJE)
 
    return

References scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::imax, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::jmax, scale_atmos_grid_cartesc_index::js, lia, lie, limax, lis, lja, lje, ljmax, ljs, lka, lke, lkmax, lks, and scale_prc::prc_abort().

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

lkmax

integer, public scale_land_grid_cartesc_index::lkmax = -1

Definition at line 32 of file scale_land_grid_cartesC_index.F90.

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

Referenced by scale_file_cartesc::construct_derived_datatype(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_def_axes(), scale_file_cartesc::file_cartesc_finalize(), scale_file_cartesc::file_cartesc_put_globalattributes(), scale_file_cartesc::file_cartesc_setup(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_external_input_cartesc::file_external_input_cartesc_finalize(), scale_file_history_cartesc::file_history_cartesc_set_pres(), scale_file_history_cartesc::file_history_cartesc_truncate_1d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), mod_land_driver::land_driver_update(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc::land_grid_cartesc_setup(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_setup(), mod_realinput::realinput_surface(), and scale_file_cartesc::set_dimension_informations().

limax

integer, public scale_land_grid_cartesc_index::limax = -1

Definition at line 33 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LIMAX = -1 ! # of computational cells: x for land

Referenced by land_grid_cartesc_index_setup().

ljmax

integer, public scale_land_grid_cartesc_index::ljmax = -1

Definition at line 34 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LJMAX = -1 ! # of computational cells: y for land

Referenced by land_grid_cartesc_index_setup().

lka

integer, public scale_land_grid_cartesc_index::lka = -1

Definition at line 37 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LKA   = -1 ! # of total grids: z for land, local

Referenced by scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_external_input_cartesc::file_external_input_cartesc_finalize(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_setup(), mod_land_vars::land_vars_check(), and scale_monitor_cartesc::monitor_cartesc_setup().

lks

integer, public scale_land_grid_cartesc_index::lks

Definition at line 38 of file scale_land_grid_cartesC_index.F90.

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

Referenced by scale_file_cartesc::construct_derived_datatype(), scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_set_coordinates_land(), scale_file_cartesc::file_cartesc_set_coordinates_urban(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file_external_input_cartesc::file_external_input_cartesc_finalize(), scale_file_history_cartesc::file_history_cartesc_truncate_1d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), scale_land_grid_cartesc::land_grid_cartesc_finalize(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), scale_land_grid_cartesc::land_grid_cartesc_setup(), mod_realinput::land_interporation(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_monitor(), and scale_monitor_cartesc::monitor_cartesc_setup().

lke

integer, public scale_land_grid_cartesc_index::lke

Definition at line 39 of file scale_land_grid_cartesC_index.F90.

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

Referenced by scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_set_coordinates_land(), scale_file_cartesc::file_cartesc_set_coordinates_urban(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), scale_land_grid_cartesc::land_grid_cartesc_finalize(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), scale_land_grid_cartesc::land_grid_cartesc_setup(), mod_realinput::land_interporation(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_monitor(), and scale_monitor_cartesc::monitor_cartesc_setup().

lia

integer, public scale_land_grid_cartesc_index::lia

Definition at line 41 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LIA        ! # of total grids: x for land, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), scale_land_grid_cartesc_real::land_grid_cartesc_real_setup(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_setup(), and scale_monitor_cartesc::monitor_cartesc_setup().

lis

integer, public scale_land_grid_cartesc_index::lis

Definition at line 42 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LIS        ! start point of inner domain: x for land, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), mod_land_vars::convert_ws2vwc(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_monitor(), mod_land_vars::land_vars_setup(), and scale_monitor_cartesc::monitor_cartesc_setup().

lie

integer, public scale_land_grid_cartesc_index::lie

Definition at line 43 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LIE        ! end   point of inner domain: x for land, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), mod_land_vars::convert_ws2vwc(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_monitor(), mod_land_vars::land_vars_setup(), and scale_monitor_cartesc::monitor_cartesc_setup().

lja

integer, public scale_land_grid_cartesc_index::lja

Definition at line 45 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LJA        ! # of total grids: y for land, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), scale_land_grid_cartesc_real::land_grid_cartesc_real_setup(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_setup(), and scale_monitor_cartesc::monitor_cartesc_setup().

ljs

integer, public scale_land_grid_cartesc_index::ljs

Definition at line 46 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LJS        ! start point of inner domain: y for land, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), mod_land_vars::convert_ws2vwc(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_monitor(), mod_land_vars::land_vars_setup(), and scale_monitor_cartesc::monitor_cartesc_setup().

lje

integer, public scale_land_grid_cartesc_index::lje

Definition at line 47 of file scale_land_grid_cartesC_index.F90.

  integer, public :: LJE        ! end   point of inner domain: y for land, local

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), mod_land_vars::convert_ws2vwc(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_monitor(), mod_land_vars::land_vars_setup(), and scale_monitor_cartesc::monitor_cartesc_setup().