mod_convert.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module mod_convert
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  use scale_atmos_grid_cartesc_index
  use scale_tracer
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: convert_setup
  public :: convert
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  logical :: CONVERT_TOPO    = .false.
  logical :: CONVERT_LANDUSE = .false.
  logical :: CONVERT_USER    = .false.
 
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine convert_setup
    use scale_prc, only: &
       prc_abort
    use mod_cnvtopo, only: &
       cnvtopo_setup
    use mod_cnvlanduse, only: &
       cnvlanduse_setup
    use mod_cnvuser, only: &
       cnvuser_setup
    implicit none
 
    namelist / param_convert / &
       convert_topo,    &
       convert_landuse, &
       convert_user
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("CONVERT_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_convert,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("CONVERT_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("CONVERT_setup",*) 'Not appropriate names in namelist PARAM_CONVERT. Check!'
       call prc_abort
    endif
    log_nml(param_convert)
 
    ! set up TOPO
    if( convert_topo ) then
       call cnvtopo_setup
    end if
 
    ! set up LANDUSE
    if( convert_landuse ) then
       call cnvlanduse_setup
    end if
 
    ! set up LANDUSE
    if( convert_user ) then
       call cnvuser_setup
    end if
 
    return
  end subroutine convert_setup
 
  !-----------------------------------------------------------------------------
  subroutine convert
    use scale_prc, only: &
       prc_abort
    use mod_cnvtopo, only: &
       cnvtopo
    use mod_cnvlanduse, only: &
       cnvlanduse
    use mod_cnvuser, only: &
       cnvuser
    implicit none
    !---------------------------------------------------------------------------
 
    if ( convert_topo .OR. convert_landuse .OR. convert_user ) then
       log_newline
       log_progress(*) 'start convert boundary data'
 
       if( convert_landuse ) then
          call cnvlanduse
       end if
 
       if( convert_topo ) then
          call cnvtopo
       end if
 
       if( convert_user ) then
          call cnvuser
       end if
 
       log_progress(*) 'end   convert boundary data'
    else
       log_newline
       log_progress(*) 'skip  convert boundary data'
    endif
 
    return
  end subroutine convert
 
end module mod_convert