mod_admin_restart Module Reference

module administrator for restart More...

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

Variables
logical, public	restart_run = .false.
	is this run restart? More...
logical, public	restart_output = .false.
	output restart file? More...
character(len=h_long), public	restart_in_basename = ''
	basename of the restart file More...
character(len=h_long), public	restart_out_basename = ''
	basename of the output file More...
character(len=h_mid), public	restart_out_title = ''
	title of the output file More...
character(len=h_mid), public	restart_out_dtype = 'DEFAULT'
	REAL4 or REAL8. More...

Detailed Description

module administrator for restart

Description

Restart administrator

Author

Team SCALE

NAMELIST

• PARAM_RESTART

  name	type	default value	comment
  RESTART_RUN	logical	.false.	is this run restart?
  RESTART_OUTPUT	logical	.false.	output restart file?
  RESTART_IN_BASENAME	character(len=H_LONG)	''	basename of the restart file
  RESTART_OUT_BASENAME	character(len=H_LONG)	''	basename of the output file
  RESTART_OUT_TITLE	character(len=H_MID)	''	title of the output file
  RESTART_OUT_DTYPE	character(len=H_MID)	'DEFAULT'	REAL4 or REAL8

  
  

History Output

No history output

Function/Subroutine Documentation

admin_restart_setup()

subroutine, public mod_admin_restart::admin_restart_setup

(

)

Setup.

Definition at line 52 of file mod_admin_restart.f90.

References mod_atmos_dyn_vars::atmos_dyn_restart_in_basename, mod_atmos_dyn_vars::atmos_dyn_restart_out_basename, mod_atmos_dyn_vars::atmos_dyn_restart_out_dtype, mod_atmos_dyn_vars::atmos_dyn_restart_out_title, mod_atmos_dyn_vars::atmos_dyn_restart_output, mod_atmos_phy_ae_vars::atmos_phy_ae_restart_in_basename, mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_basename, mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_dtype, mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_title, mod_atmos_phy_ae_vars::atmos_phy_ae_restart_output, mod_atmos_phy_ch_vars::atmos_phy_ch_restart_in_basename, mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_basename, mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_dtype, mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_title, mod_atmos_phy_ch_vars::atmos_phy_ch_restart_output, mod_atmos_phy_cp_vars::atmos_phy_cp_restart_in_basename, mod_atmos_phy_cp_vars::atmos_phy_cp_restart_out_basename, mod_atmos_phy_cp_vars::atmos_phy_cp_restart_out_dtype, mod_atmos_phy_cp_vars::atmos_phy_cp_restart_out_title, mod_atmos_phy_cp_vars::atmos_phy_cp_restart_output, mod_atmos_phy_mp_vars::atmos_phy_mp_restart_in_basename, mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_basename, mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_dtype, mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_title, mod_atmos_phy_mp_vars::atmos_phy_mp_restart_output, mod_atmos_phy_rd_vars::atmos_phy_rd_restart_in_basename, mod_atmos_phy_rd_vars::atmos_phy_rd_restart_out_basename, mod_atmos_phy_rd_vars::atmos_phy_rd_restart_out_dtype, mod_atmos_phy_rd_vars::atmos_phy_rd_restart_out_title, mod_atmos_phy_rd_vars::atmos_phy_rd_restart_output, mod_atmos_phy_sf_vars::atmos_phy_sf_restart_in_basename, mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_basename, mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_dtype, mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_title, mod_atmos_phy_sf_vars::atmos_phy_sf_restart_output, mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_basename, mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_basename, mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_dtype, mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_title, mod_atmos_phy_tb_vars::atmos_phy_tb_restart_output, mod_atmos_vars::atmos_restart_in_basename, mod_atmos_vars::atmos_restart_out_basename, mod_atmos_vars::atmos_restart_out_dtype, mod_atmos_vars::atmos_restart_out_title, mod_atmos_vars::atmos_restart_output, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, mod_land_vars::land_restart_in_basename, mod_land_vars::land_restart_out_basename, mod_land_vars::land_restart_out_dtype, mod_land_vars::land_restart_out_title, mod_land_vars::land_restart_output, mod_ocean_vars::ocean_restart_in_basename, mod_ocean_vars::ocean_restart_out_basename, mod_ocean_vars::ocean_restart_out_dtype, mod_ocean_vars::ocean_restart_out_title, mod_ocean_vars::ocean_restart_output, scale_process::prc_mpistop(), restart_in_basename, restart_out_basename, restart_out_dtype, restart_out_title, restart_output, restart_run, mod_urban_vars::urban_restart_in_basename, mod_urban_vars::urban_restart_out_basename, mod_urban_vars::urban_restart_out_dtype, mod_urban_vars::urban_restart_out_title, and mod_urban_vars::urban_restart_output.

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use scale_process, only: &
       prc_mpistop
    use mod_atmos_vars, only: &
       atmos_restart_output,       &
       atmos_restart_in_basename,  &
       atmos_restart_out_basename, &
       atmos_restart_out_title,    &
       atmos_restart_out_dtype
    use mod_atmos_dyn_vars, only: &
       atmos_dyn_restart_output,       &
       atmos_dyn_restart_in_basename,  &
       atmos_dyn_restart_out_basename, &
       atmos_dyn_restart_out_title,    &
       atmos_dyn_restart_out_dtype
    use mod_atmos_phy_cp_vars, only: &
       atmos_phy_cp_restart_output,       &
       atmos_phy_cp_restart_in_basename,  &
       atmos_phy_cp_restart_out_basename, &
       atmos_phy_cp_restart_out_title,    &
       atmos_phy_cp_restart_out_dtype
    use mod_atmos_phy_mp_vars, only: &
       atmos_phy_mp_restart_output,       &
       atmos_phy_mp_restart_in_basename,  &
       atmos_phy_mp_restart_out_basename, &
       atmos_phy_mp_restart_out_title,    &
       atmos_phy_mp_restart_out_dtype
    use mod_atmos_phy_rd_vars, only: &
       atmos_phy_rd_restart_output,       &
       atmos_phy_rd_restart_in_basename,  &
       atmos_phy_rd_restart_out_basename, &
       atmos_phy_rd_restart_out_title,    &
       atmos_phy_rd_restart_out_dtype
    use mod_atmos_phy_sf_vars, only: &
       atmos_phy_sf_restart_output,       &
       atmos_phy_sf_restart_in_basename,  &
       atmos_phy_sf_restart_out_basename, &
       atmos_phy_sf_restart_out_title,    &
       atmos_phy_sf_restart_out_dtype
    use mod_atmos_phy_tb_vars, only: &
       atmos_phy_tb_restart_output,       &
       atmos_phy_tb_restart_in_basename,  &
       atmos_phy_tb_restart_out_basename, &
       atmos_phy_tb_restart_out_title,    &
       atmos_phy_tb_restart_out_dtype
    use mod_atmos_phy_ch_vars, only: &
       atmos_phy_ch_restart_output,       &
       atmos_phy_ch_restart_in_basename,  &
       atmos_phy_ch_restart_out_basename, &
       atmos_phy_ch_restart_out_title,    &
       atmos_phy_ch_restart_out_dtype
    use mod_atmos_phy_ae_vars, only: &
       atmos_phy_ae_restart_output,       &
       atmos_phy_ae_restart_in_basename,  &
       atmos_phy_ae_restart_out_basename, &
       atmos_phy_ae_restart_out_title,    &
       atmos_phy_ae_restart_out_dtype
    use mod_ocean_vars, only: &
       ocean_restart_output,       &
       ocean_restart_in_basename,  &
       ocean_restart_out_basename, &
       ocean_restart_out_title,    &
       ocean_restart_out_dtype
    use mod_land_vars, only: &
       land_restart_output,       &
       land_restart_in_basename,  &
       land_restart_out_basename, &
       land_restart_out_title,    &
       land_restart_out_dtype
    use mod_urban_vars, only: &
       urban_restart_output,       &
       urban_restart_in_basename,  &
       urban_restart_out_basename, &
       urban_restart_out_title,    &
       urban_restart_out_dtype

    implicit none

    namelist / param_restart / &
       restart_run,          &
       restart_output,       &
       restart_in_basename,  &
       restart_out_basename, &
       restart_out_title,    &
       restart_out_dtype

    integer :: ierr
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[ADMIN] / Categ[RESTART] / Origin[SCALE-RM]'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_restart,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_RESTART. Check!'
       call prc_mpistop
    endif
    if( io_lnml ) write(io_fid_log,nml=param_restart)

    !--- set default output switch
    atmos_restart_output        = restart_output
    atmos_dyn_restart_output    = restart_output
    atmos_phy_cp_restart_output = restart_output
    atmos_phy_mp_restart_output = restart_output
    atmos_phy_rd_restart_output = restart_output
    atmos_phy_sf_restart_output = restart_output
    atmos_phy_tb_restart_output = restart_output
    atmos_phy_ch_restart_output = restart_output
    atmos_phy_ae_restart_output = restart_output
    ocean_restart_output        = restart_output
    land_restart_output         = restart_output
    urban_restart_output        = restart_output

    !--- set default input filename
    if ( restart_in_basename /= '' ) then
       atmos_restart_in_basename         = restart_in_basename
       atmos_dyn_restart_in_basename     = restart_in_basename
       atmos_phy_ae_restart_in_basename  = restart_in_basename
       atmos_phy_ch_restart_in_basename  = restart_in_basename
       atmos_phy_cp_restart_in_basename  = restart_in_basename
       atmos_phy_mp_restart_in_basename  = restart_in_basename
       atmos_phy_rd_restart_in_basename  = restart_in_basename
       atmos_phy_sf_restart_in_basename  = restart_in_basename
       atmos_phy_tb_restart_in_basename  = restart_in_basename
       ocean_restart_in_basename         = restart_in_basename
       land_restart_in_basename          = restart_in_basename
       urban_restart_in_basename         = restart_in_basename
    endif

    !--- set default output filename
    if ( restart_out_basename /= '' ) then
       atmos_restart_out_basename        = restart_out_basename
       atmos_dyn_restart_out_basename    = restart_out_basename
       atmos_phy_cp_restart_out_basename = restart_out_basename
       atmos_phy_mp_restart_out_basename = restart_out_basename
       atmos_phy_rd_restart_out_basename = restart_out_basename
       atmos_phy_sf_restart_out_basename = restart_out_basename
       atmos_phy_tb_restart_out_basename = restart_out_basename
       atmos_phy_ch_restart_out_basename = restart_out_basename
       atmos_phy_ae_restart_out_basename = restart_out_basename
       ocean_restart_out_basename        = restart_out_basename
       land_restart_out_basename         = restart_out_basename
       urban_restart_out_basename        = restart_out_basename
    endif

    !--- set default output title
    if ( restart_out_title /= '' ) then
       atmos_restart_out_title           = restart_out_title
       atmos_dyn_restart_out_title       = restart_out_title
       atmos_phy_cp_restart_out_title    = restart_out_title
       atmos_phy_mp_restart_out_title    = restart_out_title
       atmos_phy_rd_restart_out_title    = restart_out_title
       atmos_phy_sf_restart_out_title    = restart_out_title
       atmos_phy_tb_restart_out_title    = restart_out_title
       atmos_phy_ch_restart_out_title    = restart_out_title
       atmos_phy_ae_restart_out_title    = restart_out_title
       ocean_restart_out_title           = restart_out_title
       land_restart_out_title            = restart_out_title
       urban_restart_out_title           = restart_out_title
    endif

    !--- set default output data type
    if ( restart_out_dtype /= '' ) then
       atmos_restart_out_dtype           = restart_out_dtype
       atmos_dyn_restart_out_dtype       = restart_out_dtype
       atmos_phy_ae_restart_out_dtype    = restart_out_dtype
       atmos_phy_ch_restart_out_dtype    = restart_out_dtype
       atmos_phy_cp_restart_out_dtype    = restart_out_dtype
       atmos_phy_mp_restart_out_dtype    = restart_out_dtype
       atmos_phy_rd_restart_out_dtype    = restart_out_dtype
       atmos_phy_sf_restart_out_dtype    = restart_out_dtype
       atmos_phy_tb_restart_out_dtype    = restart_out_dtype
       ocean_restart_out_dtype           = restart_out_dtype
       land_restart_out_dtype            = restart_out_dtype
       urban_restart_out_dtype           = restart_out_dtype
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

restart_run

logical, public mod_admin_restart::restart_run = .false.

is this run restart?

Definition at line 39 of file mod_admin_restart.f90.

Referenced by admin_restart_setup(), mod_land_phy_driver::land_phy_driver_resume(), mod_ocean_phy_driver::ocean_phy_driver_resume(), and mod_urban_phy_driver::urban_phy_driver_resume().

  logical,               public :: restart_run          = .false.   

restart_output

logical, public mod_admin_restart::restart_output = .false.

output restart file?

Definition at line 40 of file mod_admin_restart.f90.

Referenced by admin_restart_setup().

  logical,               public :: restart_output       = .false.   

restart_in_basename

character(len=h_long), public mod_admin_restart::restart_in_basename = ''

basename of the restart file

Definition at line 42 of file mod_admin_restart.f90.

Referenced by admin_restart_setup().

  character(len=H_LONG), public :: restart_in_basename  = ''

restart_out_basename

character(len=h_long), public mod_admin_restart::restart_out_basename = ''

basename of the output file

Definition at line 43 of file mod_admin_restart.f90.

Referenced by admin_restart_setup().

  character(len=H_LONG), public :: restart_out_basename = ''

restart_out_title

character(len=h_mid), public mod_admin_restart::restart_out_title = ''

title of the output file

Definition at line 44 of file mod_admin_restart.f90.

Referenced by admin_restart_setup().

  character(len=H_MID),  public :: restart_out_title    = ''

restart_out_dtype

character(len=h_mid), public mod_admin_restart::restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 45 of file mod_admin_restart.f90.

Referenced by admin_restart_setup().

  character(len=H_MID),  public :: restart_out_dtype    = 'DEFAULT'