module CONVERT driver More...

Functions/Subroutines
subroutine, public	convert_setup
	Setup. More...

subroutine, public	convert
	Driver. More...

Detailed Description

module CONVERT driver

Description: administrator of convert tools

Author: Team SCALE

NAMELIST

PARAM_CONVERT

name type default value comment

CONVERT_TOPO logical .false.

CONVERT_LANDUSE logical .false.

CONVERT_USER logical .false.

History Output: No history output

Function/Subroutine Documentation

◆ convert_setup()

subroutine, public mod_convert::convert_setup

Setup.

Definition at line 52 of file mod_convert.F90.

     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

References mod_cnvlanduse::cnvlanduse_setup(), mod_cnvtopo::cnvtopo_setup(), mod_cnvuser::cnvuser_setup(), scale_io::io_fid_conf, and scale_prc::prc_abort().

Referenced by mod_rm_prep::rm_prep().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ convert()

subroutine, public mod_convert::convert

Driver.

Definition at line 105 of file mod_convert.F90.

     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

References mod_cnvlanduse::cnvlanduse(), mod_cnvtopo::cnvtopo(), mod_cnvuser::cnvuser(), and scale_prc::prc_abort().