dt_calc Subroutine

private pure subroutine dt_calc(tcfl, ns, Ts, vs1, vs2, vs3, B1, B2, B3, dx1i, dx2i, dx3i, potsolve, cour1, cour2, cour3, dt)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: tcfl
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: ns
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: Ts
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: vs1
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: vs2
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: vs3
real(kind=wp), intent(in), dimension(-1:,-1:,-1:):: B1
real(kind=wp), intent(in), dimension(-1:,-1:,-1:):: B2
real(kind=wp), intent(in), dimension(-1:,-1:,-1:):: B3
real(kind=wp), intent(in), dimension(:,:,:):: dx1i
real(kind=wp), intent(in), dimension(:,:,:):: dx2i
real(kind=wp), intent(in), dimension(:,:,:):: dx3i
integer, intent(in) :: potsolve
real(kind=wp), intent(out), dimension(lsp):: cour1
real(kind=wp), intent(out), dimension(lsp):: cour2
real(kind=wp), intent(out), dimension(lsp):: cour3
real(kind=wp), intent(out) :: dt

Called by

proc~~dt_calc~~CalledByGraph proc~dt_calc dt_calc proc~dt_comm dt_comm proc~dt_comm->proc~dt_calc program~gemini3d Gemini3D program~gemini3d->proc~dt_comm

Contents

None