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.

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().

     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