mod_dg_prep Module Reference

module SCALE-DG prep More...

Functions/Subroutines
subroutine, public	dg_prep (comm_world, cnf_fname, path, add_path)

Detailed Description

module SCALE-DG 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

Function/Subroutine Documentation

dg_prep()

subroutine, public mod_dg_prep::dg_prep	(	integer, intent(in)	comm_world,
		character(len=*), intent(in)	cnf_fname,
		character(len=*), intent(in)	path,
		logical, intent(in)	add_path )

Definition at line 71 of file mod_dg_prep.F90.

 
    use scale_time_manager, only: &
      time_manager_checkstate, time_manager_advance,          &
      time_nowdate, time_nowsubsec, time_nowstep, time_nstep, &
      time_doresume, time_doend
 
    implicit none
 
    integer,          intent(in) :: comm_world
    character(len=*), intent(in) :: cnf_fname
    character(len=*), intent(in) :: path
    logical,          intent(in) :: add_path
 
 
    integer :: myrank
    logical :: ismaster
 
    logical :: output
    logical :: output_topo
    !---------------------------------------------------------------------------
 
    !########## Initial setup ##########
 
#ifdef SCALE_DEVELOP
    ! setup standard I/O
    if ( add_path .and. path /= "" ) then
      call io_setup( modelname, trim(path)//cnf_fname, prefix=path )
    else
#endif
      call io_setup( modelname, trim(path)//cnf_fname )
#ifdef SCALE_DEVELOP
    end if
#endif
 
    ! setup MPI
    call prc_local_setup( comm_world, & ! [IN]
                          myrank,     & ! [OUT]
                          ismaster    ) ! [OUT]
 
    ! setup Log
    call io_log_setup( myrank, ismaster )
 
    call initialize()
 
    !###########################################################################
 
    !########## main ##########
    call prof_setprefx('MAIN')
    call prof_rapstart('Main_prep', 0)
 
    !- Execute preprocess
 
    !- Execute mktopo
    call prof_rapstart('MkTopo',1)
    call mktopo( output_topo,           &
      atmos%mesh, atmos%mesh%topography )
    call prof_rapend  ('MkTopo',1)
 
    !- Re-setup
    call atmos%mesh%Setup_vcoordinate()
 
    !- Execute mkinit
    call prof_rapstart('MkInit',1)
    call mkinit( output, &
      atmos%mesh,                  &
      atmos%vars%PROGVARS_manager, &
      atmos%vars%AUXVARS_manager,  &
      atmos%vars%QTRCVARS_manager  )
    
!    call USER_mkinit( atmos )
    call user_%mkinit( atmos )
    if ( atmos%dyn_proc%dyncore_driver%ENTOT_CONSERVE_SCHEME_FLAG ) then
      call set_total_energy( atmos%vars%PROGVARS_manager, &
        atmos%vars%AUXVARS_manager, atmos%mesh )      
    end if
 
    call prof_rapend  ('MkInit',1)
    call prof_rapend('Main_prep', 0)
 
    !- Output
 
    if ( output_topo ) call mktopo_write( atmos%mesh, atmos%mesh%topography )
 
    if ( output ) then
      call prof_rapstart('MkInit_restart',1)
      call restart_write()
      call prof_rapend  ('MkInit_restart',1)
    end if
 
    !########## Finalize ##########
    call user_%mkfinal()
    call finalize()    
 
    return

References scale_atm_dyn_dgm_nonhydro3d_common::atm_dyn_dgm_nonhydro3d_common_drhot2entot(), mod_atmos_vars::atmosvars_getlocalmeshprgvars(), scale_file_history_meshfield::file_history_meshfield_finalize(), scale_file_restart_meshfield::file_restart_meshfield_setup(), mod_mkinit::mkinit(), mod_mkinit::mkinit_setup(), mod_mktopo::mktopo(), mod_mktopo::mktopo_setup(), mod_mktopo::mktopo_write(), scale_time_manager::time_doend, scale_time_manager::time_doresume, scale_time_manager::time_manager_advance(), scale_time_manager::time_manager_checkstate(), scale_time_manager::time_manager_final(), and scale_time_manager::time_manager_init().

Referenced by mod_dg_launcher::launcher().