module Lake admin More...

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

Variables
logical, public	lake_do = .true.

character(len=h_short), public	lake_dyn_type = 'NONE'

character(len=h_short), public	lake_sfc_type = 'NONE'

Detailed Description

module Lake admin

Description: Lake model administrator

Author: Team SCALE

Function/Subroutine Documentation

◆ lake_admin_setup()

subroutine, public mod_lake_admin::lake_admin_setup ( )

Setup.

Definition at line 51 of file mod_lake_admin.F90.

References lake_do, lake_dyn_type, and scale_prc::prc_abort().

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

     use scale_prc, only: &
        prc_abort
     implicit none
 
 !    namelist / PARAM_LAKE / &
 !       LAKE_DYN_TYPE
 
 !    integer :: ierr
     !---------------------------------------------------------------------------
 
     log_newline
     log_info("LAKE_ADMIN_setup",*) 'Setup'
 
     !--- read namelist
 !!$    rewind(IO_FID_CONF)
 !!$    read(IO_FID_CONF,nml=PARAM_LAKE,iostat=ierr)
 !!$    if( ierr < 0 ) then !--- missing
 !!$       LOG_INFO("LAKE_ADMIN_setup",*) 'Not found namelist. Default used.'
 !!$    elseif( ierr > 0 ) then !--- fatal error
 !!$       LOG_ERROR("LAKE_ADMIN_setup",*) 'Not appropriate names in namelist PARAM_LAKE. Check!'
 !!$       call PRC_abort
 !!$    endif
 !!$    LOG_NML(PARAM_LAKE)
 
     !-----< module component check >-----
 
     log_newline
     log_info("LAKE_ADMIN_setup",*) 'Lake model components '
 
     if ( lake_dyn_type /= 'OFF' .AND. lake_dyn_type /= 'NONE' ) then
        log_error("LAKE_ADMIN_setup",*) 'Currently, no lake model is impremented'
 !!$       if ( WKMAX < 0 ) then
 !!$          LOG_ERROR("LAKE_ADMIN_setup",*) 'LAKE_DYN_TYPE is set but WKMAX < 0'
 !!$          call PRC_abort
 !!$       end if
        log_info_cont(*) 'Lake model : ON, ', trim(lake_dyn_type)
        lake_do = .true.
     else
        log_info_cont(*) 'Lake model : OFF'
        lake_do = .false.
     endif
 
     return