mod_land_admin Module Reference

module Land admin More...

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

Variables
character(len=h_short), public	land_dyn_type = 'NONE'
character(len=h_short), public	land_sfc_type = 'SKIN'
character(len=h_short), public	snow_type = 'NONE'
logical, public	land_do
logical, public	snow_sw

Detailed Description

module Land admin

Description

Land submodel administrator

Author

Team SCALE

NAMELIST

• PARAM_LAND

  name	type	default value	comment
  LAND_DYN_TYPE	character(len=H_SHORT)	'NONE'
  LAND_SFC_TYPE	character(len=H_SHORT)	'SKIN'
  SNOW_TYPE	character(len=H_SHORT)	'NONE'

  
  

History Output

No history output

Function/Subroutine Documentation

land_admin_setup()

subroutine, public mod_land_admin::land_admin_setup

Setup.

Definition at line 57 of file mod_land_admin.F90.

    use scale_prc, only: &
       prc_abort
    implicit none
 
    namelist / param_land / &
       land_dyn_type, &
       land_sfc_type, &
       snow_type
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("LAND_ADMIN_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("LAND_ADMIN_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("LAND_ADMIN_setup",*) 'Not appropriate names in namelist PARAM_LAND. Check!'
       call prc_abort
    endif
    log_nml(param_land)
 
    !-----< module component check >-----
 
    log_newline
    log_info("LAND_ADMIN_setup",*) 'Land model components '
 
    if ( land_dyn_type /= 'OFF' .AND. land_dyn_type /= 'NONE' ) then
       log_info_cont(*) 'Land model           : ON, ', trim(land_dyn_type)
       land_do = .true.
    else
       log_info_cont(*) 'Land model           : OFF'
       land_do = .false.
    endif
 
    if ( land_do ) then
 
       if ( snow_type /= 'OFF' .AND. snow_type /= 'NONE' ) then
          log_info_cont(*) '+ Snow  physics      : ON, ', trim(snow_type)
          snow_sw = .true.
       else
          log_info_cont(*) '+ Snow  physics      : OFF'
          snow_sw = .false.
       endif
 
       log_info_cont(*) '+ Land surface model : ', trim(land_sfc_type)
 
    end if
 
    return

References scale_io::io_fid_conf, land_do, land_dyn_type, land_sfc_type, scale_prc::prc_abort(), snow_sw, and snow_type.

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_dyn_type

character(len=h_short), public mod_land_admin::land_dyn_type = 'NONE'

Definition at line 32 of file mod_land_admin.F90.

  character(len=H_SHORT), public :: LAND_DYN_TYPE = 'NONE'

Referenced by land_admin_setup(), mod_land_driver::land_driver_setup(), and mod_land_driver::land_driver_update().

land_sfc_type

character(len=h_short), public mod_land_admin::land_sfc_type = 'SKIN'

Definition at line 36 of file mod_land_admin.F90.

  character(len=H_SHORT), public :: LAND_SFC_TYPE = 'SKIN'

Referenced by land_admin_setup(), mod_land_driver::land_driver_calc_tendency(), and mod_land_driver::land_driver_setup().

snow_type

character(len=h_short), public mod_land_admin::snow_type = 'NONE'

Definition at line 38 of file mod_land_admin.F90.

  character(len=H_SHORT), public :: SNOW_TYPE     = 'NONE'

Referenced by land_admin_setup(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_setup(), and mod_land_vars::land_vars_setup().

land_do

logical, public mod_land_admin::land_do

Definition at line 41 of file mod_land_admin.F90.

  logical,                public :: LAND_do

Referenced by mod_admin_restart::admin_restart_read(), mod_cpl_admin::cpl_admin_setup(), mod_cpl_vars::cpl_vars_setup(), land_admin_setup(), mod_land_driver::land_driver_setup(), mod_land_driver::land_surface_get(), mod_land_driver::land_surface_set(), mod_land_vars::land_vars_restart_create(), mod_land_vars::land_vars_restart_open(), mod_realinput::realinput_surface(), mod_rm_driver::restart_read(), mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

snow_sw

logical, public mod_land_admin::snow_sw

Definition at line 42 of file mod_land_admin.F90.

  logical,                public :: SNOW_sw

Referenced by land_admin_setup().