mod_convert.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module mod_convert
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  use scale_grid_index
  use scale_tracer
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: convert_setup
  public :: convert

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  logical :: CONVERT_NONE    = .false.
  logical :: CONVERT_TOPO    = .false.
  logical :: CONVERT_LANDUSE = .false.

  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine convert_setup
    use scale_process, only: &
       prc_mpistop
    use mod_cnvtopo, only: &
       cnvtopo_setup
    use mod_cnvlanduse, only: &
       cnvlanduse_setup
    implicit none

    namelist / param_convert / &
       convert_none,    &
       convert_topo,    &
       convert_landuse

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

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

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_convert,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_CONVERT. Check!'
       call prc_mpistop
    endif
    if( io_nml ) write(io_fid_nml,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

    return
  end subroutine convert_setup

  !-----------------------------------------------------------------------------
  subroutine convert
    use scale_process, only: &
       prc_mpistop
    use mod_cnvtopo, only: &
       cnvtopo
    use mod_cnvlanduse, only: &
       cnvlanduse
    implicit none
    !---------------------------------------------------------------------------

    if ( convert_none ) then
       if( io_l ) write(io_fid_log,*)
       if( io_l ) write(io_fid_log,*) '++++++ SKIP  CONVERT BOUNDARY DATA ++++++'
    else
       if( io_l ) write(io_fid_log,*)
       if( io_l ) write(io_fid_log,*) '++++++ START CONVERT BOUNDARY DATA ++++++'

       if( convert_topo ) then
          call cnvtopo
       end if

       if( convert_landuse ) then
          call cnvlanduse
       end if

       if( io_l ) write(io_fid_log,*) '++++++ END   CONVERT BOUNDARY DATA ++++++'
    endif

    return
  end subroutine convert

end module mod_convert