mod_lake_admin Module Reference

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.

    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

References lake_do, lake_dyn_type, 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

lake_do

logical, public mod_lake_admin::lake_do = .true.

Definition at line 32 of file mod_lake_admin.F90.

  logical,                public :: LAKE_do   = .true. ! main switch for the model

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

lake_dyn_type

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

Definition at line 34 of file mod_lake_admin.F90.

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

Referenced by lake_admin_setup().

lake_sfc_type

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

Definition at line 36 of file mod_lake_admin.F90.

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