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_NONE logical .false.

CONVERT_TOPO logical .false.

CONVERT_LANDUSE logical .false.

History Output: No history output

Function/Subroutine Documentation

◆ convert_setup()

subroutine, public mod_convert::convert_setup ( )

Setup.

Definition at line 51 of file mod_convert.f90.

References mod_cnvlanduse::cnvlanduse_setup(), mod_cnvtopo::cnvtopo_setup(), scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_fid_nml, scale_stdio::io_l, scale_stdio::io_nml, and scale_process::prc_mpistop().

Referenced by mod_rm_prep::scalerm_prep().

     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

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 97 of file mod_convert.f90.

References mod_cnvlanduse::cnvlanduse(), mod_cnvtopo::cnvtopo(), scale_stdio::io_fid_log, scale_stdio::io_l, and scale_process::prc_mpistop().