mod_lake_admin.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module mod_lake_admin
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: lake_admin_setup

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  logical,                public :: lake_do   = .true. ! main switch for the model

  character(len=H_SHORT), public :: lake_dyn_type = 'NONE'
                                                  ! 'OFF'
  character(len=H_SHORT), public :: lake_sfc_type = 'NONE'

  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine lake_admin_setup
    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
  end subroutine lake_admin_setup

end module mod_lake_admin