module Atmosphere / Variables More...

Data Types
type	atmosvarscontainer
	Derived type to manage a set of variables (prognostic variables, tracer variables, auxiliary variables, and tendencies of physical processes) with atmospheric component. More...

Functions/Subroutines
subroutine, public	atmosvars_getlocalmeshprgvar (domid, mesh, prgvars_list, auxvars_list, varid, var, dens_hyd, pres_hyd, lcmesh3d)
subroutine, public	atmosvars_getlocalmeshprgvars (domid, mesh, prgvars_list, auxvars_list, ddens, momx, momy, momz, therm, dens_hyd, pres_hyd, rtot, cvtot, cptot, lcmesh3d)
subroutine, public	atmosvars_getlocalmeshsfcvar (domid, mesh, auxvars2d_list, prec, prec_engi, lcmesh2d)
subroutine, public	atmosvars_getlocalmeshqtrcvar (domid, mesh, trcvars_list, varid, var, lcmesh3d)
subroutine, public	atmosvars_getlocalmeshqtrc_qv (domid, mesh, trcvars_list, forcing_list, var, var_tp, lcmesh3d)
subroutine, public	atmosvars_getlocalmeshqtrcvarlist (domid, mesh, trcvars_list, varid_s, var_list, lcmesh3d)
subroutine, public	atmosvars_getlocalmeshphyauxvars (domid, mesh, phyauxvars_list, pres, pt, lcmesh3d)
subroutine, public	atmosvars_getlocalmeshphytends (domid, mesh, phytends_list, dens_tp, momx_tp, momy_tp, momz_tp, rhot_tp, rhoh_p, rhoq_tp, lcmesh3d)
subroutine, public	atmosvars_getlocalmeshqtrcphytend (domid, mesh, phytends_list, qtrcid, rhoq_tp)

Variables
integer, parameter, public	atm_vars_container_primary_id = 1
integer, parameter, public	atmos_auxvars2d_prec_id = 1
integer, parameter, public	atmos_auxvars2d_prec_engi_id = 2
integer, parameter, public	atmos_auxvars2d_num = 2
type(variableinfo), dimension(atmos_auxvars2d_num), public	atmos_auxvars2d_vinfo

Detailed Description

module Atmosphere / Variables

Description: Container for atmospheric variables

Author: Yuta Kawai, Team SCALE

NAMELIST

PARAM_ATMOS_VARS_CONTAINER

name	type	default value	comment
PHY_PREPROC_OPERATION_TYPE	character(len=H_SHORT)	'None'	ModalFilter / GlobalFilter
MF_ALPHA_H	real(RP)
MF_ORDER_H	integer
MF_ALPHA_V	real(RP)
MF_ORDER_V	integer
GLFILTEROPTRTYPE	character(len=H_SHORT)
GLFILTERSHAPE	character(len=H_SHORT)
GLFILTERWIDTHFAC	real(RP)
NNODE_H1D_RECONST	integer

History Output

name	description	unit	variable
PREC	surface precipitaion flux	kg/m2/s	PREC
PREC_ENGI	internal energy of precipitation	J/m2	PREC_ENGI

Function/Subroutine Documentation

◆ atmosvars_getlocalmeshprgvar()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshprgvar	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	prgvars_list,
		class(modelvarmanager), intent(inout)	auxvars_list,
		integer, intent(in)	varid,
		class(localmeshfieldbase), intent(out), pointer	var,
		class(localmeshfieldbase), intent(out), optional, pointer	dens_hyd,
		class(localmeshfieldbase), intent(out), optional, pointer	pres_hyd,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 641 of file mod_atmos_vars_container.F90.

   
    implicit none
 
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: prgvars_list
    class(ModelVarManager), intent(inout) :: auxvars_list
    integer, intent(in) :: varid
    class(LocalMeshFieldBase), pointer, intent(out) :: var
    class(LocalMeshFieldBase), pointer, intent(out), optional :: DENS_hyd, PRES_hyd
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field
    class(LocalMeshBase), pointer :: lcmesh
    !-------------------------------------------------------
 
    !--
    call prgvars_list%Get(varid, field)
    call field%GetLocalMeshField(domid, var)
 
    if (present(dens_hyd)) then
      call auxvars_list%Get(auxvar_denshydro_id, field)
      call field%GetLocalMeshField(domid, dens_hyd)
    end if
    if (present(pres_hyd)) then
      call auxvars_list%Get(auxvar_preshydro_id, field)
      call field%GetLocalMeshField(domid, pres_hyd)
    end if
 
    if (present(lcmesh3d)) then
      call mesh%GetLocalMesh( domid, lcmesh )
      nullify( lcmesh3d )
 
      select type(lcmesh)
      type is (localmesh3d)
        if (present(lcmesh3d)) lcmesh3d => lcmesh
      end select
    end if
 
    return

Referenced by mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshprgvars()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshprgvars	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	prgvars_list,
		class(modelvarmanager), intent(inout)	auxvars_list,
		class(localmeshfieldbase), intent(out), pointer	ddens,
		class(localmeshfieldbase), intent(out), pointer	momx,
		class(localmeshfieldbase), intent(out), pointer	momy,
		class(localmeshfieldbase), intent(out), pointer	momz,
		class(localmeshfieldbase), intent(out), pointer	therm,
		class(localmeshfieldbase), intent(out), pointer	dens_hyd,
		class(localmeshfieldbase), intent(out), pointer	pres_hyd,
		class(localmeshfieldbase), intent(out), pointer	rtot,
		class(localmeshfieldbase), intent(out), pointer	cvtot,
		class(localmeshfieldbase), intent(out), pointer	cptot,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 687 of file mod_atmos_vars_container.F90.

    implicit none
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: prgvars_list
    class(ModelVarManager), intent(inout) :: auxvars_list
    class(LocalMeshFieldBase), pointer, intent(out) :: DDENS, MOMX, MOMY, MOMZ, THERM
    class(LocalMeshFieldBase), pointer, intent(out) :: DENS_hyd, PRES_hyd
    class(LocalMeshFieldBase), pointer, intent(out) :: Rtot, CVtot, CPtot
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field
    class(LocalMeshBase), pointer :: lcmesh
    !-------------------------------------------------------
 
    !--
    call prgvars_list%Get(prgvar_ddens_id, field)
    call field%GetLocalMeshField(domid, ddens)
 
    call prgvars_list%Get(prgvar_momx_id, field)
    call field%GetLocalMeshField(domid, momx)
    
    call prgvars_list%Get(prgvar_momy_id, field)
    call field%GetLocalMeshField(domid, momy)
 
    call prgvars_list%Get(prgvar_momz_id, field)
    call field%GetLocalMeshField(domid, momz)
 
    call prgvars_list%Get(prgvar_therm_id, field)
    call field%GetLocalMeshField(domid, therm)
  
    !--
    call auxvars_list%Get(auxvar_denshydro_id, field)
    call field%GetLocalMeshField(domid, dens_hyd)
 
    call auxvars_list%Get(auxvar_preshydro_id, field)
    call field%GetLocalMeshField(domid, pres_hyd)
 
    call auxvars_list%Get(auxvar_rtot_id, field)
    call field%GetLocalMeshField(domid, rtot)
 
    call auxvars_list%Get(auxvar_cvtot_id, field)
    call field%GetLocalMeshField(domid, cvtot)
 
    call auxvars_list%Get(auxvar_cptot_id, field)
    call field%GetLocalMeshField(domid, cptot)
 
    !---
    
    if ( present(lcmesh3d) ) then
      call mesh%GetLocalMesh( domid, lcmesh )
      nullify( lcmesh3d )
 
      select type(lcmesh)
      type is (localmesh3d)
        if (present(lcmesh3d)) lcmesh3d => lcmesh
      end select
    end if
 
    return

Referenced by mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshsfcvar()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshsfcvar	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	auxvars2d_list,
		class(localmeshfieldbase), intent(out), pointer	prec,
		class(localmeshfieldbase), intent(out), pointer	prec_engi,
		class(localmesh2d), intent(out), optional, pointer	lcmesh2d )

Definition at line 753 of file mod_atmos_vars_container.F90.

 
   implicit none
   integer, intent(in) :: domID
   class(MeshBase), intent(in) :: mesh
   class(ModelVarManager), intent(inout) :: auxvars2D_list
   class(LocalMeshFieldBase), pointer, intent(out) :: PREC, PREC_ENGI
   class(LocalMesh2D), pointer, intent(out), optional :: lcmesh2D
 
   class(MeshFieldBase), pointer :: field
   class(LocalMeshBase), pointer :: lcmesh
   !-------------------------------------------------------
 
   !--
   call auxvars2d_list%Get(atmos_auxvars2d_prec_id, field)
   call field%GetLocalMeshField(domid, prec)
 
   call auxvars2d_list%Get(atmos_auxvars2d_prec_engi_id, field)
   call field%GetLocalMeshField(domid, prec_engi)
 
   if (present(lcmesh2d)) then
     call mesh%GetLocalMesh( domid, lcmesh )
     nullify( lcmesh2d )
 
     select type(lcmesh)
     type is (localmesh2d)
       if (present(lcmesh2d)) lcmesh2d => lcmesh
     end select
   end if
 
   return

References atmos_auxvars2d_prec_engi_id, and atmos_auxvars2d_prec_id.

Referenced by mod_atmos_component::atmos_setup(), and mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshqtrcvar()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshqtrcvar	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	trcvars_list,
		integer, intent(in)	varid,
		class(localmeshfieldbase), intent(out), pointer	var,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 788 of file mod_atmos_vars_container.F90.

 
   implicit none
   integer, intent(in) :: domID
   class(MeshBase), intent(in) :: mesh
   class(ModelVarManager), intent(inout) :: trcvars_list
   integer, intent(in) :: varid
   class(LocalMeshFieldBase), pointer, intent(out) :: var
   class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
   class(MeshFieldBase), pointer :: field
   class(LocalMeshBase), pointer :: lcmesh
   !-------------------------------------------------------
 
   !--
   call trcvars_list%Get(varid, field)
   call field%GetLocalMeshField(domid, var)
 
   if (present(lcmesh3d)) then
     call mesh%GetLocalMesh( domid, lcmesh )
     nullify( lcmesh3d )
 
     select type(lcmesh)
     type is (localmesh3d)
       if (present(lcmesh3d)) lcmesh3d => lcmesh
     end select
   end if
 
   return

Referenced by mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshqtrc_qv()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshqtrc_qv	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	trcvars_list,
		class(modelvarmanager), intent(inout)	forcing_list,
		class(localmeshfieldbase), intent(out), pointer	var,
		class(localmeshfieldbase), intent(out), optional, pointer	var_tp,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 822 of file mod_atmos_vars_container.F90.

 
    use scale_atmos_hydrometeor, only: &
      atmos_hydrometeor_dry, &
      i_qv    
   implicit none
   integer, intent(in) :: domID
   class(MeshBase), intent(in) :: mesh
   class(ModelVarManager), intent(inout) :: trcvars_list
   class(ModelVarManager), intent(inout) :: forcing_list
   class(LocalMeshFieldBase), pointer, intent(out) :: var
   class(LocalMeshFieldBase), pointer, intent(out), optional :: var_tp
   class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
   class(MeshFieldBase), pointer :: field
   class(LocalMeshBase), pointer :: lcmesh
 
   integer :: iq, tend_iq
   !-------------------------------------------------------
 
   !--
 
   if ( atmos_hydrometeor_dry ) then
     iq = 0; tend_iq = phytend_num1+1
   else
     iq = i_qv; tend_iq = phytend_num1 + i_qv
   end if
 
   call trcvars_list%Get(iq, field)
   call field%GetLocalMeshField(domid, var)
 
   call forcing_list%Get(tend_iq, field)
   if (present(var_tp)) call field%GetLocalMeshField(domid, var_tp)
 
   if (present(lcmesh3d)) then
     call mesh%GetLocalMesh( domid, lcmesh )
     nullify( lcmesh3d )
 
     select type(lcmesh)
     type is (localmesh3d)
       if (present(lcmesh3d)) lcmesh3d => lcmesh
     end select
   end if
 
   return

Referenced by mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshqtrcvarlist()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshqtrcvarlist	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	trcvars_list,
		integer, intent(in)	varid_s,
		type(localmeshfieldbaselist), dimension(:), intent(out)	var_list,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 871 of file mod_atmos_vars_container.F90.

 
    implicit none
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: trcvars_list
    integer, intent(in) :: varid_s
    type(LocalMeshFieldBaseList), intent(out) :: var_list(:)
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field
    class(LocalMeshBase), pointer :: lcmesh
 
    integer :: iq
    !-------------------------------------------------------
 
    !--
    do iq = varid_s, varid_s + size(var_list) - 1
      call trcvars_list%Get(iq, field)
      call field%GetLocalMeshField(domid, var_list(iq-varid_s+1)%ptr)
    end do
    if (present(lcmesh3d)) then
      call mesh%GetLocalMesh( domid, lcmesh )
      nullify( lcmesh3d )
 
      select type(lcmesh)
      type is (localmesh3d)
        if (present(lcmesh3d)) lcmesh3d => lcmesh
      end select
    end if
 
    return

Referenced by momtovel(), and mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshphyauxvars()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshphyauxvars	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	phyauxvars_list,
		class(localmeshfieldbase), intent(out), pointer	pres,
		class(localmeshfieldbase), intent(out), pointer	pt,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 908 of file mod_atmos_vars_container.F90.

 
    implicit none
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: phyauxvars_list
    class(LocalMeshFieldBase), pointer, intent(out) :: PRES, PT
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field
    class(LocalMeshBase), pointer :: lcmesh
    !-------------------------------------------------------
 
    !--    
    call phyauxvars_list%Get(auxvar_pres_id, field)
    call field%GetLocalMeshField(domid, pres)
 
    call phyauxvars_list%Get(auxvar_pt_id, field)
    call field%GetLocalMeshField(domid, pt)
 
    !---
    
    if (present(lcmesh3d)) then
      call mesh%GetLocalMesh( domid, lcmesh )
      nullify( lcmesh3d )
 
      select type(lcmesh)
      type is (localmesh3d)
        if (present(lcmesh3d)) lcmesh3d => lcmesh
      end select
    end if
 
    return

Referenced by mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshphytends()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshphytends	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	phytends_list,
		class(localmeshfieldbase), intent(out), pointer	dens_tp,
		class(localmeshfieldbase), intent(out), pointer	momx_tp,
		class(localmeshfieldbase), intent(out), pointer	momy_tp,
		class(localmeshfieldbase), intent(out), pointer	momz_tp,
		class(localmeshfieldbase), intent(out), pointer	rhot_tp,
		class(localmeshfieldbase), intent(out), pointer	rhoh_p,
		type(localmeshfieldbaselist), dimension(qa), intent(inout), optional	rhoq_tp,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 946 of file mod_atmos_vars_container.F90.

 
    implicit none
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: phytends_list
    class(LocalMeshFieldBase), pointer, intent(out) :: DENS_tp, MOMX_tp, MOMY_tp, MOMZ_tp, RHOT_tp
    class(LocalMeshFieldBase), pointer, intent(out) :: RHOH_p
    type(LocalMeshFieldBaseList), intent(inout), optional :: RHOQ_tp(QA)
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field
    class(LocalMeshBase), pointer :: lcmesh
 
    integer :: iq
    !-------------------------------------------------------
 
    !--
    call phytends_list%Get(phytend_dens_id, field)
    call field%GetLocalMeshField(domid, dens_tp)
 
    call phytends_list%Get(phytend_momx_id, field)
    call field%GetLocalMeshField(domid, momx_tp)
    
    call phytends_list%Get(phytend_momy_id, field)
    call field%GetLocalMeshField(domid, momy_tp)
 
    call phytends_list%Get(phytend_momz_id, field)
    call field%GetLocalMeshField(domid, momz_tp)
 
    call phytends_list%Get(phytend_rhot_id, field)
    call field%GetLocalMeshField(domid, rhot_tp)
 
    call phytends_list%Get(phytend_rhoh_id, field)
    call field%GetLocalMeshField(domid, rhoh_p)
 
    if ( present(rhoq_tp) ) then
      do iq = 1, qa
        call phytends_list%Get(phytend_num1+iq, field)
        call field%GetLocalMeshField(domid, rhoq_tp(iq)%ptr)  
      end do
    end if
 
    !---
    if ( present(lcmesh3d) ) then
      call mesh%GetLocalMesh( domid, lcmesh )
      nullify( lcmesh3d )
 
      select type(lcmesh)
      type is (localmesh3d)
        if ( present(lcmesh3d) ) lcmesh3d => lcmesh
      end select
    end if
 
    return

Referenced by mod_atmos_vars::atmosvars::regist_physvar_manager().

◆ atmosvars_getlocalmeshqtrcphytend()

subroutine, public mod_atmos_vars_container::atmosvars_getlocalmeshqtrcphytend	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	phytends_list,
		integer, intent(in)	qtrcid,
		class(localmeshfieldbase), intent(out), pointer	rhoq_tp )

Definition at line 1007 of file mod_atmos_vars_container.F90.

 
    implicit none
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: phytends_list
    integer, intent(in) :: qtrcid
    class(LocalMeshFieldBase), pointer, intent(out) :: RHOQ_tp
 
    class(MeshFieldBase), pointer :: field
    !-------------------------------------------------------
 
    call phytends_list%Get(phytend_num1 + qtrcid, field)
    call field%GetLocalMeshField(domid, rhoq_tp)
 
    return