mod_land_admin.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module mod_land_admin
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  use scale_debug
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: land_admin_setup
  public :: land_admin_getscheme

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

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

  logical,                public :: land_sw

  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine land_admin_setup
    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_land / &
       land_do,  &
       land_type

    integer :: ierr
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[ADMIN] / Categ[LAND] / Origin[SCALE-RM]'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_land,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       write(*,*) 'xxx Not appropriate names in namelist PARAM_LAND. Check!'
       call prc_mpistop
    endif
    if( io_nml ) write(io_fid_nml,nml=param_land)

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

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Land model components ***'

    if ( land_type == 'OFF' .OR. land_type == 'NONE' ) then
       land_do = .false. ! force off
    endif

    if ( land_do ) then
       if( io_l ) write(io_fid_log,*) '*** Land  model     : ON'
    else
       if( io_l ) write(io_fid_log,*) '*** Land  model     : OFF'
    endif

    if ( land_type /= 'OFF' .AND. land_type /= 'NONE' ) then
       if( io_l ) write(io_fid_log,*) '*** + Land  physics : ON, ', trim(land_type)
       land_sw = .true.
    else
       if( io_l ) write(io_fid_log,*) '*** + Land  physics : OFF'
       land_sw = .false.
    endif

    return
  end subroutine land_admin_setup

  !-----------------------------------------------------------------------------
  subroutine land_admin_getscheme( &
       scheme_name     )
    use scale_process, only: &
       prc_mpistop
    implicit none

    character(len=H_SHORT), intent(out) :: scheme_name
    !---------------------------------------------------------------------------

    scheme_name = land_type

    return
  end subroutine land_admin_getscheme

end module mod_land_admin