mod_rm_driver Module Reference

module SCALE-RM (a main routine of regional model) More...

Functions/Subroutines
subroutine, public	rm_driver (comm_world, cnf_fname, path, add_path)
	Setup. More...
subroutine	restart_read

Detailed Description

module SCALE-RM (a main routine of regional model)

Description

SCALE: Scalable Computing by Advanced Library and Environment Limited area model for regional weather, regional climate, and large-Eddy Simulation (LES)

Author

Team SCALE

Function/Subroutine Documentation

rm_driver()

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

Setup.

Definition at line 59 of file mod_rm_driver.F90.

    use scale_file, only: &
       file_finalize, &
       file_close_all
    use scale_prc, only: &
       prc_abort,      &
       prc_local_setup
    use scale_fpm, only: &
       fpm_alive,       &
       fpm_polling,     &
       fpm_polling_freq
    use scale_prc_cartesc, only: &
       prc_cartesc_setup, &
       prc_cartesc_finalize
    use scale_const, only: &
       tem00  => const_tem00, &
       lhv0   => const_lhv0, &
       lhf0   => const_lhf0, &
       rdry   => const_rdry, &
       rvap   => const_rvap, &
       cl     => const_cl, &
       ci     => const_ci, &
       karman => const_karman, &
       grav   => const_grav, &
       stb    => const_stb, &
       const_setup, &
       const_finalize
    use scale_atmos_solarins, only: &
       solarins_constant => atmos_solarins_constant
    use scale_calendar, only: &
       calendar_setup
    use scale_random, only: &
       random_setup, &
       random_finalize
    use scale_matrix, only: &
       matrix_setup, &
       matrix_finalize
    use scale_tracer, only: &
       tracer_finalize
    use scale_atmos_hydrometeor, only: &
       atmos_hydrometeor_setup, &
       atmos_hydrometeor_finalize
    use scale_atmos_grid_cartesc_index, only: &
       atmos_grid_cartesc_index_setup, &
       ia, ja
    use scale_atmos_grid_cartesc, only: &
       atmos_grid_cartesc_setup, &
       atmos_grid_cartesc_finalize, &
       domain_center_y => atmos_grid_cartesc_domain_center_y, &
       cy => atmos_grid_cartesc_cy, &
       dx, dy
    use scale_atmos_grid_cartesc_real, only: &
       atmos_grid_cartesc_real_setup,        &
       atmos_grid_cartesc_real_finalize,     &
       atmos_grid_cartesc_real_calc_areavol, &
       real_lat => atmos_grid_cartesc_real_lat
    use scale_atmos_grid_cartesc_metric, only: &
       atmos_grid_cartesc_metric_setup, &
       atmos_grid_cartesc_metric_finalize, &
       atmos_grid_cartesc_metric_mapf
    use scale_ocean_grid_cartesc_index, only: &
       ocean_grid_cartesc_index_setup
    use scale_ocean_grid_cartesc, only: &
       ocean_grid_cartesc_setup, &
       ocean_grid_cartesc_finalize
    use scale_ocean_grid_cartesc_real, only: &
       ocean_grid_cartesc_real_setup, &
       ocean_grid_cartesc_real_finalize, &
       ocean_grid_cartesc_real_set_areavol
    use scale_land_grid_cartesc_index, only: &
       land_grid_cartesc_index_setup
    use scale_land_grid_cartesc, only: &
       land_grid_cartesc_setup, &
       land_grid_cartesc_finalize
    use scale_land_grid_cartesc_real, only: &
       land_grid_cartesc_real_setup, &
       land_grid_cartesc_real_finalize, &
       land_grid_cartesc_real_set_areavol
    use scale_urban_grid_cartesc_index, only: &
       urban_grid_cartesc_index_setup
    use scale_urban_grid_cartesc, only: &
       urban_grid_cartesc_setup, &
       urban_grid_cartesc_finalize
    use scale_urban_grid_cartesc_real, only: &
       urban_grid_cartesc_real_setup, &
       urban_grid_cartesc_real_finalize, &
       urban_grid_cartesc_real_set_areavol
    use scale_file_cartesc, only: &
       file_cartesc_setup, &
       file_cartesc_finalize
    use scale_file_grads, only: &
       file_grads_finalize
    use scale_comm_cartesc, only: &
       comm_setup,  &
       comm_regist, &
       comm_finalize
    use scale_comm_cartesc_nest, only: &
       comm_cartesc_nest_setup, &
       comm_cartesc_nest_finalize
    use scale_topography, only: &
       topography_setup, &
       topography_write, &
       topography_finalize
    use scale_landuse, only: &
       landuse_setup, &
       landuse_write, &
       landuse_finalize
    use scale_statistics, only: &
       statistics_setup
    use scale_time, only: &
       time_nowdate,   &
       time_nowsubsec, &
       time_nowstep,   &
       time_dtsec
    use scale_coriolis, only: &
       coriolis_setup, &
       coriolis_finalize
    use scale_atmos_hydrostatic, only: &
       atmos_hydrostatic_setup
    use scale_atmos_thermodyn, only: &
       atmos_thermodyn_setup
    use scale_atmos_saturation, only: &
       atmos_saturation_setup
    use scale_bulkflux, only: &
       bulkflux_setup
    use scale_file_external_input_cartesc, only: &
       file_external_input_cartesc_setup, &
       file_external_input_cartesc_finalize
    use scale_file_history, only: &
       file_history_write, &
       file_history_set_nowdate, &
       file_history_finalize
    use scale_file_history_cartesc, only: &
       file_history_cartesc_setup, &
       file_history_cartesc_finalize
    use scale_monitor_cartesc, only: &
       monitor_cartesc_setup
    use scale_monitor, only: &
       monitor_write, &
       monitor_finalize
    use mod_atmos_driver, only: &
       atmos_driver_tracer_setup
    use mod_admin_versioncheck, only: &
       admin_versioncheck
    use mod_admin_time, only: &
       admin_time_setup,      &
       admin_time_checkstate, &
       admin_time_advance,    &
       time_doatmos_step,     &
       time_doland_step,      &
       time_dourban_step,     &
       time_doocean_step,     &
       time_doda_step,        &
       time_doresume,         &
       time_doend
    use mod_admin_restart, only: &
       admin_restart_setup, &
       admin_restart_write
    use mod_atmos_admin, only: &
       atmos_admin_setup, &
       atmos_do,          &
       atmos_phy_mp_type
    use mod_atmos_vars, only: &
       atmos_vars_setup,           &
       atmos_vars_finalize,        &
       atmos_restart_check,        &
       atmos_vars_restart_check,   &
       atmos_vars_history_setpres, &
       atmos_vars_history,         &
       atmos_vars_monitor
    use mod_atmos_driver, only: &
       atmos_driver_setup,                    &
       atmos_driver_calc_tendency,            &
       atmos_driver_calc_tendency_from_sflux, &
       atmos_driver_update,                   &
       atmos_driver_finalize
    use mod_atmos_phy_mp_vars, only: &
       qa_mp
    use mod_ocean_admin, only: &
       ocean_admin_setup, &
       ocean_do
    use mod_ocean_vars, only: &
       ocean_vars_setup,    &
       ocean_vars_finalize, &
       ocean_vars_history,  &
       ocean_vars_monitor
    use mod_ocean_driver, only: &
       ocean_driver_setup,         &
       ocean_driver_finalize,      &
       ocean_driver_calc_tendency, &
       ocean_driver_update
    use mod_land_admin, only: &
       land_admin_setup, &
       land_do
    use mod_land_vars, only: &
       land_vars_setup,    &
       land_vars_finalize, &
       land_vars_history,  &
       land_vars_monitor
    use mod_land_driver, only: &
       land_driver_setup,         &
       land_driver_finalize,      &
       land_driver_calc_tendency, &
       land_driver_update
    use mod_urban_admin, only: &
       urban_admin_setup, &
       urban_do,          &
       urban_land
    use mod_urban_vars, only: &
       urban_vars_setup,    &
       urban_vars_finalize, &
       urban_vars_history,  &
       urban_vars_monitor
    use mod_urban_driver, only: &
       urban_driver_setup,         &
       urban_driver_finalize,      &
       urban_driver_calc_tendency, &
       urban_driver_update
    use mod_lake_admin, only: &
       lake_admin_setup, &
       lake_do
    use mod_cpl_admin, only: &
       cpl_admin_setup, &
       cpl_sw
    use mod_cpl_vars, only: &
       cpl_vars_setup, &
       cpl_vars_finalize
    use mod_cpl_driver, only: &
       cpl_driver_setup, &
       cpl_driver_finalize
    use mod_da_admin, only: &
       da_admin_setup, &
       da_do
    use mod_da_vars, only: &
       da_vars_setup,    &
       da_vars_finalize, &
       da_vars_history,  &
       da_vars_monitor
    use mod_da_driver, only: &
       da_driver_setup,         &
       da_driver_finalize,      &
       da_driver_update
    use mod_user, only: &
       user_tracer_setup,  &
       user_setup,         &
       user_finalize,      &
       user_calc_tendency, &
       user_update
#ifdef JMAPPLIB
    use pp_print_parm, only: &
       pp_print_parm_set_flg_out_msg
    use pp_phys_const, only: &
       pp_phys_const_set
#endif
    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
    integer :: fpm_counter
    logical :: ismaster
    logical :: sign_exit
 
    integer :: id
    !---------------------------------------------------------------------------
 
    !########## Initial setup ##########
 
    ! setup standard I/O
    if ( add_path .and. path /= "" ) then
       call io_setup( modelname, trim(path)//cnf_fname, prefix=path )
    else
       call io_setup( modelname, trim(path)//cnf_fname )
    end if
 
    ! setup MPI
    call prc_local_setup( comm_world, & ! [IN]
                          myrank,     & ! [OUT]
                          ismaster    ) ! [OUT]
 
    ! setup Log
    call io_log_setup( myrank, ismaster )
 
    ! namelist compatibility check
    call admin_versioncheck
 
    ! setup process
    call prc_cartesc_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 matrix
    call matrix_setup
 
    ! setup submodel administrator
    call atmos_admin_setup
    call ocean_admin_setup
    call land_admin_setup
    call urban_admin_setup
    call lake_admin_setup
    call cpl_admin_setup
    call da_admin_setup
 
    ! setup horizontal/vertical grid coordinates (cartesian,idealized)
    if ( atmos_do ) then
       call atmos_grid_cartesc_index_setup
       call atmos_grid_cartesc_setup
    endif
 
    if ( ocean_do ) then
       call ocean_grid_cartesc_index_setup
       call ocean_grid_cartesc_setup
    endif
 
    if ( land_do ) then
       call land_grid_cartesc_index_setup
       call land_grid_cartesc_setup
    endif
 
    if ( urban_do ) then
       call urban_grid_cartesc_index_setup
       call urban_grid_cartesc_setup
    endif
 
    ! setup tracer index
    call atmos_hydrometeor_setup
    call atmos_driver_tracer_setup
    call user_tracer_setup
 
    ! setup file I/O
    call file_cartesc_setup
 
    ! setup mpi communication
    call comm_setup
    call comm_regist( ka, ia, ja, ihalo, jhalo, id )
 
    ! setup topography
    call topography_setup
    ! setup land use category index/fraction
    call landuse_setup( ocean_do, (.not. urban_land), lake_do )
 
    ! setup grid coordinates (real world)
    if ( atmos_do ) then
       call atmos_grid_cartesc_real_setup
       ! setup grid transfer metrics (uses in ATMOS_dynamics)
       call atmos_grid_cartesc_metric_setup
       call atmos_grid_cartesc_real_calc_areavol( atmos_grid_cartesc_metric_mapf(:,:,:,:) )
    endif
    if ( ocean_do ) then
       call ocean_grid_cartesc_real_setup
       call ocean_grid_cartesc_real_set_areavol
    end if
    if ( land_do  ) then
       call land_grid_cartesc_real_setup
       call land_grid_cartesc_real_set_areavol
    end if
    if ( urban_do ) then
       call urban_grid_cartesc_real_setup
       call urban_grid_cartesc_real_set_areavol
    end if
 
    ! setup restart
    call admin_restart_setup
    ! setup time
    call admin_time_setup( setup_timeintegration = .true. )
    ! setup statistics
    call statistics_setup
    ! setup history I/O
    call file_history_cartesc_setup
    ! setup monitor I/O
    call monitor_cartesc_setup( time_dtsec, atmos_do, ocean_do, land_do, urban_do )
    ! setup external in
    call file_external_input_cartesc_setup
 
    ! setup nesting grid
    call comm_cartesc_nest_setup( qa_mp, atmos_phy_mp_type )
 
    ! setup coriolis parameter
    call coriolis_setup( ia, ja, real_lat(:,:), cy(:), domain_center_y )
 
    ! setup common tools
    call atmos_hydrostatic_setup
    call atmos_thermodyn_setup
    call atmos_saturation_setup
 
    call bulkflux_setup( sqrt(dx**2+dy**2) )
 
    ! setup variable container
    if ( atmos_do ) call atmos_vars_setup
    if ( ocean_do ) call ocean_vars_setup
    if ( land_do  ) call land_vars_setup
    if ( urban_do ) call urban_vars_setup
    if ( cpl_sw   ) call cpl_vars_setup
    if ( da_do    ) call da_vars_setup
 
#ifdef JMAPPLIB
    call pp_print_parm_set_flg_out_msg( 0 )
    call pp_phys_const_set( &
         tkelvn_in = tem00, &
         hlatnt_in = lhv0, &
         hlf_in    = lhf0, &
         rd_in     = rdry, &
         rv_in     = rvap, &
         cwater_in = cl, &
         cice_in   = ci, &
         vkman_in  = karman, &
         grav_in   = grav, &
         stb_in    = stb, &
         sc0_in    = solarins_constant)
#endif
 
    ! setup driver
    if ( atmos_do ) call atmos_driver_setup
    if ( ocean_do ) call ocean_driver_setup
    if ( land_do  ) call land_driver_setup
    if ( urban_do ) call urban_driver_setup
    if ( cpl_sw   ) call cpl_driver_setup
    if ( da_do    ) call da_driver_setup
 
    call user_setup
 
    ! output
    call topography_write
    call landuse_write
 
    call prof_rapend('Initialize', 0)
 
    !########## main ##########
 
#ifdef FIPP
    call fipp_start
#endif
#ifdef PAPI
    call prof_papi_rapstart
#endif
 
    log_newline
    log_progress(*) 'START TIMESTEP'
    call prof_setprefx('MAIN')
    call prof_rapstart('Main_Loop', 0)
 
    fpm_counter = 0
    do
      ! report current time
      call admin_time_checkstate
 
      if ( time_doresume ) then
         ! set state from restart files
         call restart_read
 
         ! history&monitor file output
         call monitor_write('MAIN', time_nowstep)
         call file_history_write ! if needed
      endif
 
      ! time advance
      call admin_time_advance
      call file_history_set_nowdate( time_nowdate, time_nowsubsec, time_nowstep )
 
      ! change to next state
      if( ocean_do .AND. time_doocean_step ) call ocean_driver_update
      if( land_do  .AND. time_doland_step  ) call land_driver_update
      if( urban_do .AND. time_dourban_step ) call urban_driver_update
      if( atmos_do .AND. time_doatmos_step ) call atmos_driver_update
      if( da_do    .AND. time_doda_step    ) call da_driver_update
                                             call user_update
      ! restart & monitor output
      if ( ocean_do ) call ocean_vars_monitor
      if ( land_do  ) call land_vars_monitor
      if ( urban_do ) call urban_vars_monitor
      if ( atmos_do ) call atmos_vars_monitor
      if ( da_do    ) call da_vars_monitor
      call admin_restart_write
      call monitor_write('MAIN', time_nowstep)
 
      ! calc tendencies and diagnostices
      if( atmos_do .AND. time_doatmos_step ) call atmos_driver_calc_tendency( force = .false. )
      if( ocean_do .AND. time_doocean_step ) call ocean_driver_calc_tendency( force = .false. )
      if( land_do  .AND. time_doland_step  ) call land_driver_calc_tendency( force = .false. )
      if( urban_do .AND. time_dourban_step ) call urban_driver_calc_tendency( force = .false. )
      if( cpl_sw   .AND. time_doatmos_step ) call atmos_driver_calc_tendency_from_sflux( force = .false. )
                                             call user_calc_tendency
 
      ! history file output
      !   Set hydrostatic pressure coordinate
      if ( atmos_do ) call atmos_vars_history_setpres
      if ( atmos_do ) call atmos_vars_history
      if ( ocean_do ) call ocean_vars_history
      if ( land_do  ) call land_vars_history
      if ( urban_do ) call urban_vars_history
      if ( da_do    ) call da_vars_history
 
      call file_history_write
 
      if( time_doend ) exit
 
      if( io_l ) call flush(io_fid_log)
 
      ! FPM polling
      if ( fpm_alive .AND. fpm_polling_freq > 0 ) then
         call prof_rapstart('FPM', 1)
         if ( fpm_counter > fpm_polling_freq ) then
            sign_exit = .false.
            call fpm_polling( .true., sign_exit )
            if ( sign_exit ) then
               log_error("scalerm",*) 'receive stop signal'
               call prc_abort
            endif
            fpm_counter = 0
         endif
 
         fpm_counter = fpm_counter + 1
         call prof_rapend('FPM', 1)
      endif
 
    enddo
 
    call prof_rapend('Main_Loop', 0)
 
    log_progress(*) 'END TIMESTEP'
    log_newline
 
#ifdef FIPP
    call fipp_stop
#endif
#ifdef PAPI
    call prof_papi_rapstop
#endif
 
    !########## Finalize ##########
 
    call prof_setprefx('FIN')
 
    call prof_rapstart('All', 0)
 
    if( atmos_do ) call atmos_driver_finalize
    if( ocean_do ) call ocean_driver_finalize
    if( land_do  ) call land_driver_finalize
    if( urban_do ) call urban_driver_finalize
    if( cpl_sw   ) call cpl_driver_finalize
    if( da_do    ) call da_driver_finalize
 
    ! check data
    if( atmos_restart_check ) call atmos_vars_restart_check
 
    call prof_rapstart('Monit', 1)
    call monitor_finalize
    call prof_rapend  ('Monit', 1)
 
    ! file I/O
    call prof_rapstart('File', 1)
    call file_history_cartesc_finalize
    call file_history_finalize
    call file_cartesc_finalize
    call file_grads_finalize
    call file_close_all
    call file_finalize
    call prof_rapend  ('File', 1)
 
    call atmos_grid_cartesc_metric_finalize
 
    ! setup variable container
    if ( atmos_do ) call atmos_vars_finalize
    if ( ocean_do ) call ocean_vars_finalize
    if ( land_do  ) call land_vars_finalize
    if ( urban_do ) call urban_vars_finalize
    if ( cpl_sw   ) call cpl_vars_finalize
    if ( da_do    ) call da_vars_finalize
 
 
    ! finalize external in
    call file_external_input_cartesc_finalize
 
    ! finalize coriolis parameter
    call coriolis_finalize
 
    ! finalize nesting grid
    call comm_cartesc_nest_finalize
 
    ! finalize grid coordinates (real world)
    if ( atmos_do ) call atmos_grid_cartesc_real_finalize
    if ( ocean_do ) call ocean_grid_cartesc_real_finalize
    if ( land_do  ) call land_grid_cartesc_real_finalize
    if ( urban_do ) call urban_grid_cartesc_real_finalize
 
    ! finalize land use category index/fraction
    call landuse_finalize
 
    ! finalize topography
    call topography_finalize
 
    ! finalize communication
    call comm_finalize
 
    ! user module
    call user_finalize
 
    ! finalize tracer
    call atmos_hydrometeor_finalize
    call tracer_finalize
 
    ! finalize horizontal/vertical grid coordinates (cartesian, idealized)
    if ( atmos_do ) call atmos_grid_cartesc_finalize
    if ( ocean_do ) call ocean_grid_cartesc_finalize
    if ( land_do  ) call land_grid_cartesc_finalize
    if ( urban_do ) call urban_grid_cartesc_finalize
 
    call prc_cartesc_finalize
 
    call matrix_finalize
 
    call random_finalize
 
    call const_finalize
 
    call prof_rapend  ('All', 0)
 
    call prof_rapreport
#ifdef PAPI
    call prof_papi_rapreport
#endif
 
    ! finalize profiler
    call prof_finalize
 
    ! finalize io
    call io_finalize
 
    return

References mod_admin_restart::admin_restart_setup(), mod_admin_restart::admin_restart_write(), mod_admin_time::admin_time_advance(), mod_admin_time::admin_time_checkstate(), mod_admin_time::admin_time_setup(), mod_admin_versioncheck::admin_versioncheck(), mod_atmos_admin::atmos_admin_setup(), mod_atmos_admin::atmos_do, mod_atmos_driver::atmos_driver_calc_tendency(), mod_atmos_driver::atmos_driver_calc_tendency_from_sflux(), mod_atmos_driver::atmos_driver_finalize(), mod_atmos_driver::atmos_driver_setup(), mod_atmos_driver::atmos_driver_tracer_setup(), mod_atmos_driver::atmos_driver_update(), scale_atmos_grid_cartesc::atmos_grid_cartesc_cy, scale_atmos_grid_cartesc::atmos_grid_cartesc_domain_center_y, scale_atmos_grid_cartesc::atmos_grid_cartesc_finalize(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup(), scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_finalize(), scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_mapf, scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_setup(), scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_calc_areavol(), scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_finalize(), scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_lat, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_setup(), scale_atmos_grid_cartesc::atmos_grid_cartesc_setup(), scale_atmos_hydrometeor::atmos_hydrometeor_finalize(), scale_atmos_hydrometeor::atmos_hydrometeor_setup(), scale_atmos_hydrostatic::atmos_hydrostatic_setup(), mod_atmos_admin::atmos_phy_mp_type, mod_atmos_vars::atmos_restart_check, scale_atmos_saturation::atmos_saturation_setup(), scale_atmos_solarins::atmos_solarins_constant, scale_atmos_thermodyn::atmos_thermodyn_setup(), mod_atmos_vars::atmos_vars_finalize(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_history_setpres(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_restart_check(), mod_atmos_vars::atmos_vars_setup(), scale_bulkflux::bulkflux_setup(), scale_calendar::calendar_setup(), scale_comm_cartesc_nest::comm_cartesc_nest_finalize(), scale_comm_cartesc_nest::comm_cartesc_nest_setup(), scale_comm_cartesc::comm_finalize(), scale_comm_cartesc::comm_regist(), scale_comm_cartesc::comm_setup(), scale_const::const_ci, scale_const::const_cl, scale_const::const_finalize(), scale_const::const_grav, scale_const::const_karman, scale_const::const_lhf0, scale_const::const_lhv0, scale_const::const_rdry, scale_const::const_rvap, scale_const::const_setup(), scale_const::const_stb, scale_const::const_tem00, scale_coriolis::coriolis_finalize(), scale_coriolis::coriolis_setup(), mod_cpl_admin::cpl_admin_setup(), mod_cpl_driver::cpl_driver_finalize(), mod_cpl_driver::cpl_driver_setup(), mod_cpl_admin::cpl_sw, mod_cpl_vars::cpl_vars_finalize(), mod_cpl_vars::cpl_vars_setup(), mod_da_admin::da_admin_setup(), mod_da_admin::da_do, mod_da_driver::da_driver_finalize(), mod_da_driver::da_driver_setup(), mod_da_driver::da_driver_update(), mod_da_vars::da_vars_finalize(), mod_da_vars::da_vars_history(), mod_da_vars::da_vars_monitor(), mod_da_vars::da_vars_setup(), scale_atmos_grid_cartesc::dx, scale_atmos_grid_cartesc::dy, scale_file_cartesc::file_cartesc_finalize(), scale_file_cartesc::file_cartesc_setup(), scale_file::file_close_all(), scale_file_external_input_cartesc::file_external_input_cartesc_finalize(), scale_file_external_input_cartesc::file_external_input_cartesc_setup(), scale_file::file_finalize(), scale_file_grads::file_grads_finalize(), scale_file_history_cartesc::file_history_cartesc_finalize(), scale_file_history_cartesc::file_history_cartesc_setup(), scale_file_history::file_history_finalize(), scale_file_history::file_history_set_nowdate(), scale_file_history::file_history_write(), scale_fpm::fpm_alive, scale_fpm::fpm_polling(), scale_fpm::fpm_polling_freq, scale_atmos_grid_cartesc_index::ia, scale_io::io_fid_log, scale_io::io_finalize(), scale_io::io_l, scale_io::io_log_setup(), scale_io::io_setup(), scale_atmos_grid_cartesc_index::ja, mod_lake_admin::lake_admin_setup(), mod_lake_admin::lake_do, mod_land_admin::land_admin_setup(), mod_land_admin::land_do, mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_finalize(), mod_land_driver::land_driver_setup(), mod_land_driver::land_driver_update(), scale_land_grid_cartesc::land_grid_cartesc_finalize(), scale_land_grid_cartesc_index::land_grid_cartesc_index_setup(), scale_land_grid_cartesc_real::land_grid_cartesc_real_finalize(), scale_land_grid_cartesc_real::land_grid_cartesc_real_set_areavol(), scale_land_grid_cartesc_real::land_grid_cartesc_real_setup(), scale_land_grid_cartesc::land_grid_cartesc_setup(), mod_land_vars::land_vars_finalize(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_monitor(), mod_land_vars::land_vars_setup(), scale_landuse::landuse_finalize(), scale_landuse::landuse_setup(), scale_landuse::landuse_write(), scale_matrix::matrix_finalize(), scale_matrix::matrix_setup(), scale_monitor_cartesc::monitor_cartesc_setup(), scale_monitor::monitor_finalize(), scale_monitor::monitor_write(), mod_ocean_admin::ocean_admin_setup(), mod_ocean_admin::ocean_do, mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_finalize(), mod_ocean_driver::ocean_driver_setup(), mod_ocean_driver::ocean_driver_update(), scale_ocean_grid_cartesc::ocean_grid_cartesc_finalize(), scale_ocean_grid_cartesc_index::ocean_grid_cartesc_index_setup(), scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_finalize(), scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_set_areavol(), scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_setup(), scale_ocean_grid_cartesc::ocean_grid_cartesc_setup(), mod_ocean_vars::ocean_vars_finalize(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_monitor(), mod_ocean_vars::ocean_vars_setup(), scale_prc::prc_abort(), scale_prc_cartesc::prc_cartesc_finalize(), scale_prc_cartesc::prc_cartesc_setup(), scale_prc::prc_local_setup(), scale_prof::prof_finalize(), scale_prof::prof_rapend(), scale_prof::prof_rapreport(), scale_prof::prof_rapstart(), scale_prof::prof_setprefx(), scale_prof::prof_setup(), mod_atmos_phy_mp_vars::qa_mp, scale_random::random_finalize(), scale_random::random_setup(), restart_read(), scale_statistics::statistics_setup(), mod_admin_time::time_doatmos_step, mod_admin_time::time_doda_step, mod_admin_time::time_doend, mod_admin_time::time_doland_step, mod_admin_time::time_doocean_step, mod_admin_time::time_doresume, mod_admin_time::time_dourban_step, scale_time::time_dtsec, scale_time::time_nowdate, scale_time::time_nowstep, scale_time::time_nowsubsec, scale_topography::topography_finalize(), scale_topography::topography_setup(), scale_topography::topography_write(), scale_tracer::tracer_finalize(), mod_urban_admin::urban_admin_setup(), mod_urban_admin::urban_do, mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_finalize(), mod_urban_driver::urban_driver_setup(), mod_urban_driver::urban_driver_update(), scale_urban_grid_cartesc::urban_grid_cartesc_finalize(), scale_urban_grid_cartesc_index::urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_finalize(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_set_areavol(), scale_urban_grid_cartesc_real::urban_grid_cartesc_real_setup(), scale_urban_grid_cartesc::urban_grid_cartesc_setup(), mod_urban_admin::urban_land, mod_urban_vars::urban_vars_finalize(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_monitor(), mod_urban_vars::urban_vars_setup(), mod_user::user_calc_tendency(), mod_user::user_finalize(), mod_user::user_setup(), mod_user::user_tracer_setup(), and mod_user::user_update().

Referenced by mod_launcher::launcher().

Here is the caller graph for this function:

restart_read()

subroutine mod_rm_driver::restart_read

Definition at line 709 of file mod_rm_driver.F90.

    use scale_atmos_grid_cartesc_index
    use scale_atmos_grid_cartesc, only: &
       cz   => atmos_grid_cartesc_cz,  &
       fz   => atmos_grid_cartesc_fz,  &
       fdz  => atmos_grid_cartesc_fdz, &
       rcdz => atmos_grid_cartesc_rcdz
    use scale_atmos_grid_cartesc_real, only: &
       real_cz  => atmos_grid_cartesc_real_cz,  &
       real_fz  => atmos_grid_cartesc_real_fz,  &
       real_phi => atmos_grid_cartesc_real_phi, &
       area     => atmos_grid_cartesc_real_area
    use scale_time, only: &
       time_nowdaysec
    use mod_admin_restart, only: &
       admin_restart_read
    use mod_atmos_admin, only: &
       atmos_do
    use mod_atmos_driver, only: &
       atmos_driver_calc_tendency, &
       atmos_driver_calc_tendency_from_sflux, &
       atmos_surface_set
    use mod_atmos_vars, only: &
       atmos_vars_calc_diagnostics, &
       atmos_vars_history_setpres,  &
       atmos_vars_history,          &
       atmos_vars_monitor,          &
       dens,                        &
       pott,                        &
       temp,                        &
       pres,                        &
       qv
    use mod_atmos_bnd_driver, only: &
       atmos_boundary_driver_set
    use scale_atmos_refstate, only: &
       atmos_refstate_update
    use mod_ocean_admin, only: &
       ocean_do
    use mod_ocean_driver, only: &
       ocean_driver_calc_tendency, &
       ocean_surface_set
    use mod_ocean_vars, only: &
       ocean_vars_history, &
       ocean_vars_monitor
    use mod_land_admin, only: &
       land_do
    use mod_land_driver, only: &
       land_driver_calc_tendency, &
       land_surface_set
    use mod_land_vars, only: &
       land_vars_history, &
       land_vars_monitor
    use mod_urban_admin, only: &
       urban_do
    use mod_urban_driver, only: &
       urban_driver_calc_tendency, &
       urban_surface_set
    use mod_urban_vars, only: &
       urban_vars_history, &
       urban_vars_monitor
    use mod_cpl_admin, only: &
       cpl_sw
    use mod_da_admin, only: &
       da_do
    use mod_da_vars, only: &
       da_vars_history, &
       da_vars_monitor
    use mod_user, only: &
       user_calc_tendency
    implicit none
    !---------------------------------------------------------------------------
 
    ! read restart data
    call admin_restart_read
 
    if ( atmos_do ) then
       ! calc diagnostics
       call atmos_vars_calc_diagnostics
       call prof_rapstart('ATM_Refstate', 2)
       call atmos_refstate_update( ka, ks, ke, ia, is, ie, isb, ieb, ja, js, je, jsb, jeb, &
                                   dens(:,:,:), pott(:,:,:), temp(:,:,:), pres(:,:,:), qv(:,:,:), & ! [IN]
                                   cz(:), fz(:), fdz(:), rcdz(:),                                 & ! [IN]
                                   real_cz(:,:,:), real_fz(:,:,:), real_phi(:,:,:), area(:,:),    & ! [IN]
                                   time_nowdaysec                                                 )
       call prof_rapend('ATM_Refstate', 2)
       call atmos_boundary_driver_set( time_nowdaysec )
       call atmos_vars_calc_diagnostics
       call atmos_vars_history_setpres
    endif
 
    ! setup surface condition
    if( atmos_do ) call atmos_surface_set( countup=.false. )
    if( ocean_do ) call ocean_surface_set( countup=.false. )
    if( land_do  ) call land_surface_set ( countup=.false. )
    if( urban_do ) call urban_surface_set( countup=.false. )
 
    ! calc tendencies
    if( atmos_do ) call atmos_driver_calc_tendency           ( force=.true. )
    if( ocean_do ) call ocean_driver_calc_tendency           ( force=.true. )
    if( land_do  ) call land_driver_calc_tendency            ( force=.true. )
    if( urban_do ) call urban_driver_calc_tendency           ( force=.true. )
    if( cpl_sw   ) call atmos_driver_calc_tendency_from_sflux( force=.true. )
                   call user_calc_tendency
 
    !########## History & Monitor ##########
    if( atmos_do ) call atmos_vars_history
    if( ocean_do ) call ocean_vars_history
    if( land_do  ) call land_vars_history
    if( urban_do ) call urban_vars_history
    if( da_do    ) call da_vars_history
 
    if( atmos_do ) call atmos_vars_monitor
    if( ocean_do ) call ocean_vars_monitor
    if( land_do  ) call land_vars_monitor
    if( urban_do ) call urban_vars_monitor
    if( da_do    ) call da_vars_monitor
 
    return

References mod_admin_restart::admin_restart_read(), mod_atmos_bnd_driver::atmos_boundary_driver_set(), mod_atmos_admin::atmos_do, mod_atmos_driver::atmos_driver_calc_tendency(), mod_atmos_driver::atmos_driver_calc_tendency_from_sflux(), scale_atmos_grid_cartesc::atmos_grid_cartesc_cz, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdz, scale_atmos_grid_cartesc::atmos_grid_cartesc_fz, scale_atmos_grid_cartesc::atmos_grid_cartesc_rcdz, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_cz, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_fz, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_phi, scale_atmos_refstate::atmos_refstate_update(), mod_atmos_driver::atmos_surface_set(), mod_atmos_vars::atmos_vars_calc_diagnostics(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_history_setpres(), mod_atmos_vars::atmos_vars_monitor(), mod_cpl_admin::cpl_sw, mod_da_admin::da_do, mod_da_vars::da_vars_history(), mod_da_vars::da_vars_monitor(), mod_atmos_vars::dens, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::ieb, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::isb, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::jeb, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::jsb, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, mod_land_admin::land_do, mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_surface_set(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_monitor(), mod_ocean_admin::ocean_do, mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_monitor(), mod_atmos_vars::pott, mod_atmos_vars::pres, scale_prof::prof_rapend(), scale_prof::prof_rapstart(), mod_atmos_vars::qv, mod_atmos_vars::temp, scale_time::time_nowdaysec, mod_urban_admin::urban_do, mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_surface_set(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_monitor(), and mod_user::user_calc_tendency().

Referenced by rm_driver().

Here is the call graph for this function:

Here is the caller graph for this function: