mod_atmos_phy_tb Module Reference

module ATMOSPHERE physics / sub-grid scale turbulence process More...

Data Types
type	atmosphytb
	Derived type to manage a component of sub-grid scale turbulent process. More...

Functions/Subroutines
subroutine	atmosphytb_setup (this, model_mesh, tm_parent_comp)
	Setup a component of SGS turbulence process.

Detailed Description

module ATMOSPHERE physics / sub-grid scale turbulence process

Description

Module for sub-grid scale turbulence process

Author

Yuta Kawai, Team SCALE

NAMELIST

• PARAM_ATMOS_PHY_TB

  name	type	default value	comment
  TIME_DT	real(DP)	UNDEF8	Timestep for sub-grid scale turbulent process
  TIME_DT_UNIT	character(len=H_SHORT)	'SEC'	Unit of timestep
  TB_TYPE	character(len=H_MID)	'SMAGORINSKY'	Type of sub-grid scale turbulent scheme

  
  

History Output

No history output

Function/Subroutine Documentation

atmosphytb_setup()

subroutine mod_atmos_phy_tb::atmosphytb_setup	(	class(atmosphytb), intent(inout)	this,
		class(modelmeshbase), intent(in), target	model_mesh,
		class(time_manager_component), intent(inout)	tm_parent_comp )

Setup a component of SGS turbulence process.

Parameters

model_mesh	a object to manage computational mesh of atmospheric model
tm_parent_comp	a object to mange a temporal scheme in a parent component

Definition at line 94 of file mod_atmos_phy_tb.F90.

    use mod_atmos_mesh, only: atmosmesh
    use scale_time_manager, only: time_manager_component
 
    implicit none
    class(AtmosPhyTb), intent(inout) :: this
    class(ModelMeshBase), target, intent(in) :: model_mesh
    class(TIME_manager_component), intent(inout) :: tm_parent_comp
 
    real(DP) :: TIME_DT                             = undef8  
    character(len=H_SHORT) :: TIME_DT_UNIT          = 'SEC'
 
    character(len=H_MID) :: TB_TYPE = 'SMAGORINSKY'
    namelist /param_atmos_phy_tb/ &
      time_dt,          & 
      time_dt_unit,     &
      tb_type
    
    class(AtmosMesh), pointer     :: atm_mesh
    class(MeshBase), pointer      :: ptr_mesh
    real(DP) :: dtsec
 
    integer :: ierr
    !--------------------------------------------------
 
    if (.not. this%IsActivated()) return
 
    log_newline
    log_info("ATMOS_PHY_TB_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_atmos_phy_tb,iostat=ierr)
    if( ierr < 0 ) then !--- missing
      log_info("ATMOS_PHY_TB_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
      log_error("ATMOS_PHY_TB_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_TB. Check!'
      call prc_abort
    endif
    log_nml(param_atmos_phy_tb)
 
    !- get mesh --------------------------------------------------
 
    call model_mesh%GetModelMesh( ptr_mesh )
    select type(model_mesh)
    class is (atmosmesh)
      atm_mesh => model_mesh
    end select
 
    !--- Regist this compoent in the time manager
    
    call tm_parent_comp%Regist_process( 'ATMOS_PHY_TB', time_dt, time_dt_unit, & ! (in)
      this%tm_process_id )                                                       ! (out)
 
    dtsec = tm_parent_comp%process_list(this%tm_process_id)%dtsec
 
    !- initialize the variables 
    call this%vars%Init( model_mesh )      
 
    !- Initialize a module for turbulence model
    call this%tb_driver%Init( tb_type, dtsec, atm_mesh )
 
    !--
    this%dyn_bnd => null()
 
    return

References mod_atmos_phy_tb_vars::atmosphytbvars_getlocalmeshfields_tend(), mod_atmos_vars::atmosvars_getlocalmeshphyauxvars(), mod_atmos_vars::atmosvars_getlocalmeshphytends(), mod_atmos_vars::atmosvars_getlocalmeshprgvar(), mod_atmos_vars::atmosvars_getlocalmeshprgvars(), mod_atmos_vars::atmosvars_getlocalmeshqtrcvar(), and scale_atm_dyn_dgm_nonhydro3d_common::prgvar_ddens_id.