mod_atmos_vars_container.F90 File Reference

#include "scaleFElib.h"

Go to the source code of this file.

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

Modules
module	mod_atmos_vars_container
	module Atmosphere / Variables

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

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

Function/Subroutine Documentation

momtovel()

subroutine atmosvarscontainer_calcdiagvar::momtovel	(	real(rp), dimension(elem%np,lmesh%nea), intent(inout)	vel,
		real(rp), dimension(elem%np,lmesh%nea), intent(in)	mom,
		real(rp), dimension(elem%np,lmesh%nea), intent(in)	ddens,
		real(rp), dimension(elem%np,lmesh%nea), intent(in)	dens_hyd,
		class(localmesh3d), intent(in)	lmesh,
		class(elementbase3d), intent(in)	elem )

Definition at line 453 of file mod_atmos_vars_container.F90.

      implicit none
      class(LocalMesh3D), intent(in) :: lmesh
      class(ElementBase3D), intent(in) :: elem
      real(RP), intent(inout) :: vel(elem%Np,lmesh%NeA)
      real(RP), intent(in) :: mom(elem%Np,lmesh%NeA)
      real(RP), intent(in) :: ddens(elem%Np,lmesh%NeA)
      real(RP), intent(in) :: dens_hyd(elem%Np,lmesh%NeA)
 
      integer :: ke, p
      !-----------------------------------------------
 
      !$omp parallel do
      !$acc parallel loop collapse(2) present(vel, mom, ddens, dens_hyd) async(1)
      do ke =lmesh%NeS, lmesh%NeE
      do p = 1, elem%Np
        vel(p,ke) = mom(p,ke) / ( ddens(p,ke) + dens_hyd(p,ke) )
      end do
      end do
 
      return

References scale_atm_phy_mp_dgm_common::atm_phy_mp_dgm_common_negative_fixer(), mod_atmos_vars_container::atm_vars_container_primary_id, and mod_atmos_vars_container::atmosvars_getlocalmeshqtrcvarlist().