scale_land_grid_cartesc Module Reference

module land / grid / cartesianC More...

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

Variables
real(rp), dimension(:), allocatable, public	land_grid_cartesc_cz
	center coordinate [m]: z, local=global More...
real(rp), dimension(:), allocatable, public	land_grid_cartesc_fz
	face coordinate [m]: z, local=global More...
real(rp), dimension(:), allocatable, public	land_grid_cartesc_cdz
	z-length of control volume [m] More...

Detailed Description

module land / grid / cartesianC

Description

Grid module for cartesian coordinate for land

Author

Team SCALE

NAMELIST

• PARAM_LAND_GRID_CARTESC

  name	type	default value	comment
  LAND_GRID_CARTESC_IN_BASENAME	character(len=H_LONG)	''
  LAND_GRID_CARTESC_IN_AGGREGATE	logical
  LDZ	real(RP), dimension(100)

  
  

History Output

No history output

Function/Subroutine Documentation

land_grid_cartesc_setup()

subroutine, public scale_land_grid_cartesc::land_grid_cartesc_setup

Setup.

Definition at line 59 of file scale_land_grid_cartesC.F90.

    use scale_prc, only: &
       prc_abort
    use scale_file, only: &
       file_aggregate
    implicit none
 
    namelist / param_land_grid_cartesc / &
       land_grid_cartesc_in_basename,  &
       land_grid_cartesc_in_aggregate, &
       ldz
 
    integer :: ierr
    integer :: k
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("LAND_GRID_CARTESC_setup",*) 'Setup'
 
    if ( lkmax < 1 ) then
       log_info("LAND_GRID_CARTESC_setup",*) 'Skip because LKMAX < 1'
       return
    end if
 
    ldz(:) = 0.0_rp
 
    land_grid_cartesc_in_aggregate = file_aggregate
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land_grid_cartesc,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("LAND_GRID_CARTESC_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("LAND_GRID_CARTESC_setup",*) 'Not appropriate names in namelist PARAM_LAND_GRID_CARTESC. Check!'
       call prc_abort
    endif
    log_nml(param_land_grid_cartesc)
 
    allocate( land_grid_cartesc_cz(lks  :lke) )
    allocate( land_grid_cartesc_fz(lks-1:lke) )
    allocate( land_grid_cartesc_cdz(lks  :lke) )
 
    log_newline
    log_info("LAND_GRID_CARTESC_setup",*) 'Land grid information '
 
    if ( land_grid_cartesc_in_basename /= '' ) then
       call land_grid_cartesc_read
    else
       log_info("LAND_GRID_CARTESC_setup",*) 'Not found input grid file. Grid position is calculated.'
 
       call land_grid_cartesc_generate
    endif
 
    if ( lke == lks ) then
       log_newline
       log_info("LAND_GRID_CARTESC_setup",*) 'Single layer. LDZ = ', ldz(1)
    else
       log_newline
       log_info_cont('(1x,A)') 'Vertical Coordinate'
       log_info_cont('(1x,A)')                  '|   k       z      zh      dz   k |'
       log_info_cont('(1x,A)')                  '|         [m]     [m]     [m]     |'
       k = lks-1
       log_info_cont('(1x,A,F8.3,A,I4,A)')      '|            ',land_grid_cartesc_fz(k),'        ',k,' | Atmosphere interface'
       do k = lks, lke-1
       log_info_cont('(1x,A,I4,F8.3,A,F8.3,A)') '|',k,land_grid_cartesc_cz(k),'        ',land_grid_cartesc_cdz(k),'     | '
       log_info_cont('(1x,A,F8.3,A,I4,A)')      '|            ',land_grid_cartesc_fz(k),'       |',k,' | '
       enddo
       k = lke
       log_info_cont('(1x,A,I4,F8.3,A,F8.3,A)') '|',k,land_grid_cartesc_cz(k),'        ',land_grid_cartesc_cdz(k),'     | '
       log_info_cont('(1x,A,F8.3,A,I4,A)')      '|            ',land_grid_cartesc_fz(k),'        ',k,' | bedrock'
       log_info_cont('(1x,A)')                  '|=================================|'
    endif
 
    return

References scale_file::file_aggregate, scale_file::file_open(), scale_io::io_fid_conf, land_grid_cartesc_cdz, land_grid_cartesc_cz, land_grid_cartesc_fz, scale_land_grid_cartesc_index::lke, scale_land_grid_cartesc_index::lkmax, scale_land_grid_cartesc_index::lks, scale_prc::prc_abort(), and scale_prc::prc_myrank.

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

land_grid_cartesc_cz

real(rp), dimension (:), allocatable, public scale_land_grid_cartesc::land_grid_cartesc_cz

center coordinate [m]: z, local=global

Definition at line 34 of file scale_land_grid_cartesC.F90.

  real(RP), public, allocatable :: LAND_GRID_CARTESC_CZ (:)

Referenced by scale_file_cartesc::file_cartesc_set_coordinates_urban(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), mod_land_driver::land_driver_calc_tendency(), land_grid_cartesc_setup(), and mod_realinput::realinput_surface().

land_grid_cartesc_fz

real(rp), dimension (:), allocatable, public scale_land_grid_cartesc::land_grid_cartesc_fz

face coordinate [m]: z, local=global

Definition at line 35 of file scale_land_grid_cartesC.F90.

  real(RP), public, allocatable :: LAND_GRID_CARTESC_FZ (:)

Referenced by scale_file_cartesc::file_cartesc_write_axes(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), and land_grid_cartesc_setup().

land_grid_cartesc_cdz

real(rp), dimension(:), allocatable, public scale_land_grid_cartesc::land_grid_cartesc_cdz

z-length of control volume [m]

Definition at line 36 of file scale_land_grid_cartesC.F90.

  real(RP), public, allocatable :: LAND_GRID_CARTESC_CDZ(:)

Referenced by scale_file_cartesc::file_cartesc_write_axes(), 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_real::land_grid_cartesc_real_set_areavol(), and land_grid_cartesc_setup().