scale_atm_dyn_dgm_nonhydro3d_hevi_gmres.F90 File Reference

#include "scaleFElib.h"

Go to the source code of this file.

Modules
module	scale_atm_dyn_dgm_nonhydro3d_hevi_gmres
	module FElib / Fluid dyn solver / Atmosphere / Regional nonhydrostatic model / HEVI

Functions/Subroutines
subroutine, public	scale_atm_dyn_dgm_nonhydro3d_hevi_gmres::atm_dyn_dgm_nonhydro3d_hevi_init (mesh)
subroutine, public	scale_atm_dyn_dgm_nonhydro3d_hevi_gmres::atm_dyn_dgm_nonhydro3d_hevi_final ()
subroutine, public	scale_atm_dyn_dgm_nonhydro3d_hevi_gmres::atm_dyn_dgm_nonhydro3d_hevi_cal_tend (dens_dt, momx_dt, momy_dt, momz_dt, rhot_dt, ddens_, momx_, momy_, momz_, drhot_, dens_hyd, pres_hyd, coriolis, gxu_, gyu_, gzu_, gxv_, gyv_, gzv_, gxw_, gyw_, gzw_, gxpt_, gypt_, gzpt_, visccoef_h, visccoef_v, diffcoef_h, diffcoef_v, dx, dy, dz, sx, sy, sz, lift, lmesh, elem, lmesh2d, elem2d)
subroutine, public	scale_atm_dyn_dgm_nonhydro3d_hevi_gmres::atm_dyn_dgm_nonhydro3d_hevi_cal_grad_diffvars (gxu_, gyu_, gzu_, gxv_, gyv_, gzv_, gxw_, gyw_, gzw_, gxpt_, gypt_, gzpt_, ddens_, momx_, momy_, momz_, drhot_, dens_hyd, pres_hyd, dx, dy, dz, lift, lmesh, elem)
subroutine, public	scale_atm_dyn_dgm_nonhydro3d_hevi_gmres::atm_dyn_dgm_nonhydro3d_hevi_cal_vi (dens_dt, momx_dt, momy_dt, momz_dt, rhot_dt, ddens_, momx_, momy_, momz_, drhot_, dens_hyd, pres_hyd, dz, lift, impl_fac, lmesh, elem, lmesh2d, elem2d)
subroutine	get_pmatd_lu (pmatdlu_, pmatd_, pmatdlu_ipiv_, n)

Function/Subroutine Documentation

get_pmatd_lu()

subroutine vi_construct_pmatinv::get_pmatd_lu	(	real(rp), dimension(n,n), intent(out)	pmatdlu_,
		real(rp), dimension(n,n), intent(in)	pmatd_,
		integer, dimension(n), intent(out)	pmatdlu_ipiv_,
		integer, intent(in)	n )

Definition at line 1919 of file scale_atm_dyn_dgm_nonhydro3d_hevi_gmres.F90.

      use scale_linalgebra, only: linalgebra_lu
      implicit none
      integer, intent(in) :: N
      real(RP), intent(out) :: pmatDlu_(N,N)
      real(RP), intent(in) :: pmatD_(N,N)
      integer, intent(out) :: pmatDlu_ipiv_(N)
      integer :: info
      !------------------------------------------
 
      pmatdlu_(:,:) = pmatd_(:,:)
      call linalgebra_lu(pmatdlu_, pmatdlu_ipiv_)
      return

References scale_linalgebra::linalgebra_inv(), and scale_linalgebra::linalgebra_lu().

Referenced by scale_atm_dyn_dgm_nonhydro3d_hevi_gmres::atm_dyn_dgm_nonhydro3d_hevi_cal_vi().