mod_urban_admin.F90

Go to the documentation of this file.

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

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  logical,                public :: urban_do   = .true.  ! main switch for the model
  logical,                public :: urban_land = .false. ! urban is handled as a land use type

  character(len=H_SHORT), public :: urban_dyn_type = 'NONE'
                                                   ! 'OFF'
                                                   ! 'LAND'
                                                   ! 'KUSAKA01'
  character(len=H_SHORT), public :: urban_sfc_type = 'NONE'
                                                   ! 'KUSAKA01'

  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine urban_admin_setup
    use scale_prc, only: &
       prc_abort
    implicit none

    namelist / param_urban / &
       urban_dyn_type
    integer :: ierr
    !---------------------------------------------------------------------------

    log_newline
    log_info("URBAN_ADMIN_setup",*) 'Setup'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_urban,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("URBAN_ADMIN_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("URBAN_ADMIN_setup",*) 'Not appropriate names in namelist PARAM_URBAN. Check!'
       call prc_abort
    endif
    log_nml(param_urban)

    !-----< module component check >-----

    log_newline
    log_info("URBAN_ADMIN_setup",*) 'Urban model components '

    if ( urban_dyn_type == 'LAND' ) then
       log_info_cont(*) 'Urban model : OFF (Land model is used for urban)'
       urban_do   = .false.
       urban_land = .true.
    else if ( urban_dyn_type /= 'OFF' .AND. urban_dyn_type /= 'NONE' ) then
       log_info_cont(*) 'Urban model : ON, ', trim(urban_dyn_type)
       urban_do = .true.
    else
       log_info_cont(*) 'Urban model : OFF'
       urban_do = .false.
    endif

    return
  end subroutine urban_admin_setup

end module mod_urban_admin