module ATMOS admin More...

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

subroutine, public	atmos_admin_getscheme (component_name, scheme_name)
	Get name of scheme for each component. More...

Variables
logical, public	atmos_do = .true.

character(len=h_short), public	atmos_dyn_type = 'NONE'

character(len=h_short), public	atmos_phy_mp_type = 'NONE'

character(len=h_short), public	atmos_phy_ae_type = 'NONE'

character(len=h_short), public	atmos_phy_ch_type = 'NONE'

character(len=h_short), public	atmos_phy_rd_type = 'NONE'

character(len=h_short), public	atmos_phy_sf_type = 'NONE'

character(len=h_short), public	atmos_phy_tb_type = 'NONE'

character(len=h_short), public	atmos_phy_cp_type = 'NONE'

logical, public	atmos_use_average = .false.

logical, public	atmos_sw_dyn

logical, public	atmos_sw_phy_mp

logical, public	atmos_sw_phy_ae

logical, public	atmos_sw_phy_ch

logical, public	atmos_sw_phy_rd

logical, public	atmos_sw_phy_sf

logical, public	atmos_sw_phy_tb

logical, public	atmos_sw_phy_cp

Detailed Description

module ATMOS admin

Description: Atmosphere submodel administrator

Author: Team SCALE

NAMELIST

PARAM_ATMOS

name	type	default value	comment
ATMOS_DO	logical	.true.	main switch for the model
ATMOS_DYN_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_PHY_MP_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_PHY_AE_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_PHY_CH_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_PHY_RD_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_PHY_SF_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_PHY_TB_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_PHY_CP_TYPE	character(len=H_SHORT)	'NONE'
ATMOS_USE_AVERAGE	logical	.false.

History Output: No history output

Function/Subroutine Documentation

◆ atmos_admin_setup()

subroutine, public mod_atmos_admin::atmos_admin_setup ( )

Setup.

Definition at line 67 of file mod_atmos_admin.f90.

References atmos_do, atmos_dyn_type, atmos_phy_ae_type, atmos_phy_ch_type, atmos_phy_cp_type, atmos_phy_mp_type, atmos_phy_rd_type, atmos_phy_sf_type, atmos_phy_tb_type, atmos_sw_dyn, atmos_sw_phy_ae, atmos_sw_phy_ch, atmos_sw_phy_cp, atmos_sw_phy_mp, atmos_sw_phy_rd, atmos_sw_phy_sf, atmos_sw_phy_tb, atmos_use_average, 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_driver::scalerm(), and mod_rm_prep::scalerm_prep().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     namelist / param_atmos / &
        atmos_do,          &
        atmos_dyn_type,    &
        atmos_phy_mp_type, &
        atmos_phy_ae_type, &
        atmos_phy_ch_type, &
        atmos_phy_rd_type, &
        atmos_phy_sf_type, &
        atmos_phy_tb_type, &
        atmos_phy_cp_type, &
        atmos_use_average
 
     integer :: ierr
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[ADMIN] / Categ[ATMOS] / Origin[SCALE-RM]'
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_atmos,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_ATMOS. Check!'
        call prc_mpistop
     endif
     if( io_nml ) write(io_fid_nml,nml=param_atmos)
 
     !-----< module component check >-----
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Atmosphere model components ***'
 
     if ( atmos_do ) then
        if( io_l ) write(io_fid_log,*) '*** Atmosphere model       : ON'
     else
        if( io_l ) write(io_fid_log,*) '*** Atmosphere model       : OFF'
     endif
 
     if( io_l ) write(io_fid_log,*) '*** Dynamics...'
 
     if    ( atmos_dyn_type == 'OFF' ) then
        if( io_l ) write(io_fid_log,*) '*** + Dynamical core       : OFF'
        if( io_l ) write(io_fid_log,*) '*** + Advection            : OFF'
        atmos_sw_dyn = .false.
     elseif( atmos_dyn_type == 'NONE' ) then
        ! The advection is disbled
        ! The tendencies calculated by physical processed are added
        if( io_l ) write(io_fid_log,*) '*** + Dynamical core       : ON, ', trim(atmos_dyn_type)
        if( io_l ) write(io_fid_log,*) '*** + Advection            : OFF'
        atmos_sw_dyn = .true.
     else ! default
        if( io_l ) write(io_fid_log,*) '*** + Dynamical core       : ON, ', trim(atmos_dyn_type)
        if( io_l ) write(io_fid_log,*) '*** + Advection            : ON'
        atmos_sw_dyn = .true.
     endif
 
     if( io_l ) write(io_fid_log,*) '*** Physics...'
 
     if ( atmos_phy_mp_type /= 'OFF' .AND. atmos_phy_mp_type /= 'NONE' ) then
        if( io_l ) write(io_fid_log,*) '*** + Cloud Microphysics   : ON, ', trim(atmos_phy_mp_type)
        atmos_sw_phy_mp = .true.
     else
        if( io_l ) write(io_fid_log,*) '*** + Cloud Microphysics   : OFF'
        atmos_sw_phy_mp = .false.
     endif
 
     if ( atmos_phy_ae_type /= 'OFF' .AND. atmos_phy_ae_type /= 'NONE' ) then
        if( io_l ) write(io_fid_log,*) '*** + Aerosol Microphysics : ON, ', trim(atmos_phy_ae_type)
        atmos_sw_phy_ae = .true.
     else
        if( io_l ) write(io_fid_log,*) '*** + Aerosol Microphysics : OFF'
        atmos_sw_phy_ae = .false.
     endif
 
     if ( atmos_phy_ch_type /= 'OFF' .AND. atmos_phy_ch_type /= 'NONE' ) then
        if( io_l ) write(io_fid_log,*) '*** + Chemistry            : ON, ', trim(atmos_phy_ch_type)
        atmos_sw_phy_ch = .true.
     else
        if( io_l ) write(io_fid_log,*) '*** + Chemistry            : OFF'
        atmos_sw_phy_ch = .false.
     endif
 
     if ( atmos_phy_rd_type /= 'OFF' .AND. atmos_phy_rd_type /= 'NONE' ) then
        if( io_l ) write(io_fid_log,*) '*** + Radiative transfer   : ON, ', trim(atmos_phy_rd_type)
        atmos_sw_phy_rd = .true.
     else
        if( io_l ) write(io_fid_log,*) '*** + Radiative transfer   : OFF'
        atmos_sw_phy_rd = .false.
     endif
 
     if ( atmos_phy_sf_type /= 'OFF' .AND. atmos_phy_sf_type /= 'NONE' ) then
        if( io_l ) write(io_fid_log,*) '*** + Surface Flux         : ON, ', trim(atmos_phy_sf_type)
        atmos_sw_phy_sf = .true.
     else
        if( io_l ) write(io_fid_log,*) '*** + Surface Flux         : OFF'
        atmos_sw_phy_sf = .false.
     endif
 
     if ( atmos_phy_tb_type /= 'OFF' .AND. atmos_phy_tb_type /= 'NONE' ) then
        if( io_l ) write(io_fid_log,*) '*** + Sub-grid Turbulence  : ON, ', trim(atmos_phy_tb_type)
        atmos_sw_phy_tb = .true.
     else
        if( io_l ) write(io_fid_log,*) '*** + Sub-grid Turbulence  : OFF'
        atmos_sw_phy_tb = .false.
     endif
 
     if ( atmos_phy_cp_type /= 'OFF' .AND. atmos_phy_cp_type /= 'NONE' ) then
        if( io_l ) write(io_fid_log,*) '*** + Convection Param.    : ON, ', trim(atmos_phy_cp_type)
        atmos_sw_phy_cp = .true.
     else
        if( io_l ) write(io_fid_log,*) '*** + Convection Param.    : OFF'
        atmos_sw_phy_cp = .false.
     endif
 
     if ( atmos_use_average ) then
        if( io_l ) write(io_fid_log,*) '*** + Use time-averaging value for physics? : YES'
     else
        if( io_l ) write(io_fid_log,*) '*** + Use time-averaging value for physics? : NO'
     endif
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_admin_getscheme()

subroutine, public mod_atmos_admin::atmos_admin_getscheme	(	character(len=*), intent(in)	component_name,
		character(len=h_short), intent(out)	scheme_name
	)

Get name of scheme for each component.

Definition at line 201 of file mod_atmos_admin.f90.

References atmos_dyn_type, atmos_phy_ae_type, atmos_phy_ch_type, atmos_phy_cp_type, atmos_phy_mp_type, atmos_phy_rd_type, atmos_phy_sf_type, atmos_phy_tb_type, and scale_process::prc_mpistop().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     character(len=*),       intent(in)  :: component_name
     character(len=H_SHORT), intent(out) :: scheme_name
     !---------------------------------------------------------------------------
 
     select case(component_name)
     case("DYN")
        scheme_name = atmos_dyn_type
     case("PHY_MP")
        scheme_name = atmos_phy_mp_type
     case("PHY_AE")
        scheme_name = atmos_phy_ae_type
     case("PHY_CH")
        scheme_name = atmos_phy_ch_type
     case("PHY_RD")
        scheme_name = atmos_phy_rd_type
     case("PHY_SF")
        scheme_name = atmos_phy_sf_type
     case("PHY_TB")
        scheme_name = atmos_phy_tb_type
     case("PHY_CP")
        scheme_name = atmos_phy_cp_type
     case default
        write(*,*) 'xxx Unsupported component_name. Check!', trim(component_name)
        call prc_mpistop
     end select
 
     return

Here is the call graph for this function:

Variable Documentation

◆ atmos_do

logical, public mod_atmos_admin::atmos_do = .true.

Definition at line 32 of file mod_atmos_admin.f90.

Referenced by mod_admin_restart::admin_restart_read(), atmos_admin_setup(), mod_rm_driver::resume_state(), and mod_rm_driver::scalerm().

32 logical, public :: ATMOS_do = .true. ! main switch for the model

◆ atmos_dyn_type

character(len=h_short), public mod_atmos_admin::atmos_dyn_type = 'NONE'

Definition at line 34 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), mod_atmos_dyn_driver::atmos_dyn_driver_setup(), and mod_atmos_dyn_vars::atmos_dyn_vars_setup().

34 character(len=H_SHORT), public :: ATMOS_DYN_TYPE = 'NONE'

◆ atmos_phy_mp_type

character(len=h_short), public mod_atmos_admin::atmos_phy_mp_type = 'NONE'

Definition at line 35 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_config(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), mod_mkinit::mkinit(), mod_realinput::parentatomsetup(), mod_mkinit::read_sounding(), and mod_realinput::realinput_atmos().

35 character(len=H_SHORT), public :: ATMOS_PHY_MP_TYPE = 'NONE'

◆ atmos_phy_ae_type

character(len=h_short), public mod_atmos_admin::atmos_phy_ae_type = 'NONE'

Definition at line 36 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), mod_atmos_phy_ae_driver::atmos_phy_ae_driver_config(), mod_atmos_phy_ae_driver::atmos_phy_ae_driver_setup(), mod_mkinit::interporation_fact(), and mod_mkinit::read_sounding().

36 character(len=H_SHORT), public :: ATMOS_PHY_AE_TYPE = 'NONE'

◆ atmos_phy_ch_type

character(len=h_short), public mod_atmos_admin::atmos_phy_ch_type = 'NONE'

Definition at line 37 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), and mod_atmos_phy_ch_driver::atmos_phy_ch_driver_setup().

37 character(len=H_SHORT), public :: ATMOS_PHY_CH_TYPE = 'NONE'

◆ atmos_phy_rd_type

character(len=h_short), public mod_atmos_admin::atmos_phy_rd_type = 'NONE'

Definition at line 38 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), and mod_atmos_phy_rd_driver::atmos_phy_rd_driver_setup().

38 character(len=H_SHORT), public :: ATMOS_PHY_RD_TYPE = 'NONE'

◆ atmos_phy_sf_type

character(len=h_short), public mod_atmos_admin::atmos_phy_sf_type = 'NONE'

Definition at line 39 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), and mod_cpl_admin::cpl_admin_setup().

39 character(len=H_SHORT), public :: ATMOS_PHY_SF_TYPE = 'NONE'

◆ atmos_phy_tb_type

character(len=h_short), public mod_atmos_admin::atmos_phy_tb_type = 'NONE'

Definition at line 40 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), and mod_atmos_phy_tb_driver::atmos_phy_tb_driver_config().

40 character(len=H_SHORT), public :: ATMOS_PHY_TB_TYPE = 'NONE'

◆ atmos_phy_cp_type

character(len=h_short), public mod_atmos_admin::atmos_phy_cp_type = 'NONE'

Definition at line 41 of file mod_atmos_admin.f90.

Referenced by atmos_admin_getscheme(), atmos_admin_setup(), and mod_atmos_phy_cp_driver::atmos_phy_cp_driver_setup().

41 character(len=H_SHORT), public :: ATMOS_PHY_CP_TYPE = 'NONE'

◆ atmos_use_average

logical, public mod_atmos_admin::atmos_use_average = .false.

Definition at line 43 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_dyn_driver::atmos_dyn_driver(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_setup().

43 logical, public :: ATMOS_USE_AVERAGE = .false.

◆ atmos_sw_dyn

logical, public mod_atmos_admin::atmos_sw_dyn

Definition at line 45 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_dyn_driver::atmos_dyn_driver_setup(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_restart_write().

45 logical, public :: ATMOS_sw_dyn

◆ atmos_sw_phy_mp

logical, public mod_atmos_admin::atmos_sw_phy_mp

Definition at line 46 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_config(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_resume(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_restart_write().

46 logical, public :: ATMOS_sw_phy_mp

◆ atmos_sw_phy_ae

logical, public mod_atmos_admin::atmos_sw_phy_ae

Definition at line 47 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_restart_write().

47 logical, public :: ATMOS_sw_phy_ae

◆ atmos_sw_phy_ch

logical, public mod_atmos_admin::atmos_sw_phy_ch

Definition at line 48 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_resume(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_setup(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_restart_write().

48 logical, public :: ATMOS_sw_phy_ch

◆ atmos_sw_phy_rd

logical, public mod_atmos_admin::atmos_sw_phy_rd

Definition at line 49 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_resume(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_setup(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_restart_write().

49 logical, public :: ATMOS_sw_phy_rd

◆ atmos_sw_phy_sf

logical, public mod_atmos_admin::atmos_sw_phy_sf

Definition at line 50 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_resume(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), mod_atmos_vars::atmos_vars_restart_write(), and mod_cpl_admin::cpl_admin_setup().

50 logical, public :: ATMOS_sw_phy_sf

◆ atmos_sw_phy_tb

logical, public mod_atmos_admin::atmos_sw_phy_tb

Definition at line 51 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_config(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_resume(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_setup(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_restart_write().

51 logical, public :: ATMOS_sw_phy_tb

◆ atmos_sw_phy_cp

logical, public mod_atmos_admin::atmos_sw_phy_cp

Definition at line 52 of file mod_atmos_admin.f90.

Referenced by atmos_admin_setup(), mod_atmos_driver::atmos_driver(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver_resume(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver_setup(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), and mod_atmos_vars::atmos_vars_restart_write().

52 logical, public :: ATMOS_sw_phy_cp

Functions/Subroutines

Variables