mod_rm_prep Module Reference

module SCALE-RM prep More...

Functions/Subroutines
subroutine, public	scalerm_prep (comm_world, intercomm_parent, intercomm_child, cnf_fname)
	Setup. More...

Detailed Description

module SCALE-RM prep

Description

This program is driver of preprocess tools 1) boundary data (e.g. topography, land use index) 2) initial data for ideal/real test cases

Author

Team SCALE

History

• 2012-04-08 (H.Yashiro) [mod] merge all init programs
• 2012-06-13 (Y.Sato) [mod] add HBINW option
• 2016-06-03 (H.Yashiro) [mod] merge scale-rm_pp and scale-rm_init

Function/Subroutine Documentation

scalerm_prep()

subroutine, public mod_rm_prep::scalerm_prep	(	integer, intent(in)	comm_world,
		integer, intent(in)	intercomm_parent,
		integer, intent(in)	intercomm_child,
		character(len=*), intent(in)	cnf_fname
	)

Setup.

Definition at line 67 of file mod_rm_prep.f90.

References mod_admin_restart::admin_restart_setup(), mod_admin_time::admin_time_setup(), mod_atmos_admin::atmos_admin_setup(), mod_atmos_driver::atmos_driver_config(), scale_atmos_hydrometeor::atmos_hydrometeor_setup(), scale_atmos_hydrostatic::atmos_hydrostatic_setup(), scale_atmos_saturation::atmos_saturation_setup(), scale_atmos_thermodyn::atmos_thermodyn_setup(), mod_atmos_vars::atmos_vars_setup(), scale_calendar::calendar_setup(), scale_comm::comm_setup(), scale_const::const_setup(), mod_convert::convert(), mod_convert::convert_setup(), mod_cpl_admin::cpl_admin_setup(), mod_cpl_vars::cpl_vars_setup(), gtool_file::filecloseall(), scale_fileio::fileio_cleanup(), scale_fileio::fileio_setup(), scale_grid_index::grid_index_setup(), scale_grid::grid_setup(), scale_gridtrans::gtrans_setup(), scale_history::hist_setup(), scale_interpolation::interp_setup(), scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_fid_nml, scale_stdio::io_l, scale_stdio::io_log_setup(), scale_stdio::io_nml, scale_stdio::io_setup(), mod_land_admin::land_admin_setup(), scale_land_grid_index::land_grid_index_setup(), scale_land_grid::land_grid_setup(), mod_land_vars::land_vars_setup(), scale_landuse::landuse_setup(), dc_log::loginit(), mod_mkinit::mkinit(), mod_mkinit::mkinit_setup(), mod_mktopo::mktopo(), mod_mktopo::mktopo_setup(), scale_grid_nest::nest_setup(), mod_ocean_admin::ocean_admin_setup(), mod_ocean_vars::ocean_vars_setup(), scale_process::prc_local_setup(), scale_rm_process::prc_setup(), scale_prof::prof_rapend(), scale_prof::prof_rapreport(), scale_prof::prof_rapstart(), scale_prof::prof_setprefx(), scale_prof::prof_setup(), scale_random::random_setup(), scale_grid_real::real_setup(), scale_grid_real::real_update_z(), scale_rm_statistics::stat_setup(), scale_topography::topo_setup(), mod_urban_admin::urban_admin_setup(), scale_urban_grid_index::urban_grid_index_setup(), scale_urban_grid::urban_grid_setup(), mod_urban_vars::urban_vars_setup(), and mod_user::user_config().

Referenced by scalerm_launcher().

    use scale_process, only: &
       prc_local_setup
    use scale_rm_process, only: &
       prc_setup
    use scale_const, only: &
       const_setup
    use scale_calendar, only: &
       calendar_setup
    use scale_random, only: &
       random_setup
    use scale_grid_index, only: &
       grid_index_setup
    use scale_grid, only: &
       grid_setup
    use scale_grid_nest, only: &
       nest_setup
    use scale_land_grid_index, only: &
       land_grid_index_setup
    use scale_land_grid, only: &
       land_grid_setup
    use scale_urban_grid_index, only: &
       urban_grid_index_setup
    use scale_urban_grid, only: &
       urban_grid_setup
    use scale_fileio, only: &
       fileio_setup, &
       fileio_cleanup
    use scale_comm, only: &
       comm_setup
    use scale_topography, only: &
       topo_setup
    use scale_landuse, only: &
       landuse_setup
    use scale_grid_real, only: &
       real_setup,   &
       real_update_z
    use scale_gridtrans, only: &
       gtrans_setup
    use scale_interpolation, only: &
       interp_setup
    use scale_rm_statistics, only: &
       stat_setup
    use scale_history, only: &
       hist_setup
    use scale_atmos_hydrostatic, only: &
       atmos_hydrostatic_setup
    use scale_atmos_thermodyn, only: &
       atmos_thermodyn_setup
    use scale_atmos_hydrometeor, only: &
       atmos_hydrometeor_setup
    use scale_atmos_saturation, only: &
       atmos_saturation_setup
    use mod_atmos_driver, only: &
       atmos_driver_config
    use mod_admin_restart, only: &
       admin_restart_setup
    use mod_admin_time, only: &
       admin_time_setup
    use mod_atmos_admin, only: &
       atmos_admin_setup
    use mod_atmos_vars, only: &
       atmos_vars_setup
    use mod_ocean_admin, only: &
       ocean_admin_setup
    use mod_ocean_vars, only: &
       ocean_vars_setup
    use mod_land_admin, only: &
       land_admin_setup
    use mod_land_vars, only: &
       land_vars_setup
    use mod_urban_admin, only: &
       urban_admin_setup
    use mod_urban_vars, only: &
       urban_vars_setup
    use mod_cpl_admin, only: &
       cpl_admin_setup
    use mod_cpl_vars, only: &
       cpl_vars_setup
    use mod_convert, only: &
       convert_setup, &
       convert
    use mod_mktopo, only: &
       mktopo_setup, &
       mktopo
    use mod_mkinit, only: &
       mkinit_setup, &
       mkinit
    use mod_user, only: &
       user_config
    implicit none

    integer,          intent(in) :: comm_world
    integer,          intent(in) :: intercomm_parent
    integer,          intent(in) :: intercomm_child
    character(len=*), intent(in) :: cnf_fname

    integer :: myrank
    logical :: ismaster
    !---------------------------------------------------------------------------

    !########## Initial setup ##########

    ! setup standard I/O
    call io_setup( modelname, .true., cnf_fname )

    ! setup MPI
    call prc_local_setup( comm_world, & ! [IN]
                          myrank,     & ! [OUT]
                          ismaster    ) ! [OUT]

    ! setup Log
    call io_log_setup( myrank, ismaster )
    call loginit( io_fid_conf,       &
                  io_fid_log, io_l,  &
                  io_fid_nml, io_nml )

    ! setup process
    call prc_setup

    ! setup PROF
    call prof_setup


    ! profiler start
    call prof_setprefx('INIT')
    call prof_rapstart('Initialize', 0)


    ! setup constants
    call const_setup

    ! setup calendar
    call calendar_setup

    ! setup random number
    call random_setup

    ! setup horizontal/vertical grid coordinates (cartesian,idealized)
    call grid_index_setup
    call grid_setup

    call land_grid_index_setup
    call land_grid_setup

    call urban_grid_index_setup
    call urban_grid_setup

    ! setup submodel administrator
    call atmos_admin_setup
    call ocean_admin_setup
    call land_admin_setup
    call urban_admin_setup
    call cpl_admin_setup

    ! setup tracer index
    call atmos_hydrometeor_setup
    call atmos_driver_config
    call user_config

    ! setup file I/O
    call fileio_setup

    ! setup mpi communication
    call comm_setup

    ! setup topography
    call topo_setup
    ! setup land use category index/fraction
    call landuse_setup
    ! setup grid coordinates (real world)
    call real_setup

    ! setup grid transfer metrics (uses in ATMOS_dynamics)
    call gtrans_setup
    ! setup Z-ZS interpolation factor (uses in History)
    call interp_setup

    ! setup restart
    call admin_restart_setup
    ! setup time
    call admin_time_setup( setup_timeintegration = .false. )
    ! setup statistics
    call stat_setup
    ! setup history I/O
    call hist_setup

    ! setup nesting grid
    call nest_setup ( intercomm_parent, intercomm_child )


    ! setup common tools
    call atmos_hydrostatic_setup
    call atmos_thermodyn_setup
    call atmos_saturation_setup

    ! setup variable container
    call atmos_vars_setup
    call ocean_vars_setup
    call land_vars_setup
    call urban_vars_setup
    call cpl_vars_setup

    ! setup preprocess converter
    call convert_setup

    ! setup mktopo
    call mktopo_setup

    ! setup mkinit
    call mkinit_setup

    call prof_rapend('Initialize')

    !########## main ##########

    call prof_rapstart('Main_prep')

    ! execute preprocess
    call prof_rapstart('Convert')
    call convert
    call prof_rapend  ('Convert')

    ! execute mktopo
    call prof_rapstart('MkTopo')
    call mktopo
    call prof_rapend  ('MkTopo')

    ! re-setup
    call real_update_z

    ! execute mkinit
    call prof_rapstart('MkInit')
    call mkinit
    call prof_rapend  ('MkInit')

    call prof_rapend('Main_prep')

    !########## Finalize ##########

    call prof_rapreport

    ! setup file I/O
    call fileio_cleanup

    call filecloseall

    return

Here is the caller graph for this function: