potentialBCs_mumps Module

  1. potentialBCs_mumps.f90
  2. potentialBCs_mumps

Uses

  • module~~potentialbcs_mumps~~UsesGraph module~potentialbcs_mumps potentialBCs_mumps ieee_arithmetic ieee_arithmetic module~potentialbcs_mumps->ieee_arithmetic module~reader reader module~potentialbcs_mumps->module~reader iso_fortran_env iso_fortran_env module~potentialbcs_mumps->iso_fortran_env module~phys_consts phys_consts module~potentialbcs_mumps->module~phys_consts module~interpolation interpolation module~potentialbcs_mumps->module~interpolation module~mesh mesh module~potentialbcs_mumps->module~mesh module~mpimod mpimod module~potentialbcs_mumps->module~mpimod module~grid grid module~potentialbcs_mumps->module~grid module~timeutils timeutils module~potentialbcs_mumps->module~timeutils module~reader->iso_fortran_env module~reader->module~phys_consts module~phys_consts->iso_fortran_env module~interpolation->module~phys_consts module~mesh->module~phys_consts module~mpimod->iso_fortran_env module~mpimod->module~phys_consts mpi mpi module~mpimod->mpi module~grid->module~reader module~grid->iso_fortran_env module~grid->module~phys_consts module~grid->module~mesh module~grid->module~mpimod module~timeutils->iso_fortran_env module~timeutils->module~phys_consts

Used by

  • module~~potentialbcs_mumps~~UsedByGraph module~potentialbcs_mumps potentialBCs_mumps module~potential_comm potential_comm module~potential_comm->module~potentialbcs_mumps program~gemini3d Gemini3D program~gemini3d->module~potentialbcs_mumps program~gemini3d->module~potential_comm module~potential_worker potential_worker module~potential_worker->module~potential_comm module~potential_root potential_root module~potential_root->module~potential_comm

Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
real(kind=wp), private, dimension(:), allocatable:: mlonp
real(kind=wp), private, dimension(:), allocatable:: mlatp
integer, private :: llon
integer, private :: llat
real(kind=wp), private, dimension(:,:), allocatable:: E0xp
real(kind=wp), private, dimension(:,:), allocatable:: E0yp
real(kind=wp), private, dimension(:,:), allocatable:: Vminx1p
real(kind=wp), private, dimension(:,:), allocatable:: Vmaxx1p
real(kind=wp), private, dimension(:), allocatable:: Vminx2pslice
real(kind=wp), private, dimension(:), allocatable:: Vmaxx2pslice
real(kind=wp), private, dimension(:), allocatable:: Vminx3pslice
real(kind=wp), private, dimension(:), allocatable:: Vmaxx3pslice
real(kind=wp), private, dimension(:), allocatable:: Edatp
real(kind=wp), private, dimension(:), allocatable:: mloni
real(kind=wp), private, dimension(:), allocatable:: mlati
real(kind=wp), private, dimension(:,:), allocatable:: E0xiprev
real(kind=wp), private, dimension(:,:), allocatable:: E0xinext
real(kind=wp), private, dimension(:,:), allocatable:: E0yiprev
real(kind=wp), private, dimension(:,:), allocatable:: E0yinext
real(kind=wp), private, dimension(:,:), allocatable:: Vminx1iprev
real(kind=wp), private, dimension(:,:), allocatable:: Vminx1inext
real(kind=wp), private, dimension(:,:), allocatable:: Vmaxx1iprev
real(kind=wp), private, dimension(:,:), allocatable:: Vmaxx1inext
real(kind=wp), private, dimension(:), allocatable:: Vminx2isprev
real(kind=wp), private, dimension(:), allocatable:: Vminx2isnext
real(kind=wp), private, dimension(:), allocatable:: Vmaxx2isprev
real(kind=wp), private, dimension(:), allocatable:: Vmaxx2isnext
real(kind=wp), private, dimension(:), allocatable:: Vminx3isprev
real(kind=wp), private, dimension(:), allocatable:: Vminx3isnext
real(kind=wp), private, dimension(:), allocatable:: Vmaxx3isprev
real(kind=wp), private, dimension(:), allocatable:: Vmaxx3isnext
integer, private, dimension(3):: ymdprev
integer, private, dimension(3):: ymdnext
real(kind=wp), private :: UTsecprev
real(kind=wp), private :: UTsecnext
real(kind=wp), private :: tprev
real(kind=wp), private :: tnext
integer, private :: ix1ref

reference location along field line closest to reference point of input data (300 km alt. at the grid center)
integer, private :: ix2ref

reference location along field line closest to reference point of input data (300 km alt. at the grid center)
integer, private :: ix3ref

reference location along field line closest to reference point of input data (300 km alt. at the grid center)
integer, private :: flagdirich_state

Subroutines

public subroutine potentialBCs2D_fileinput(dt, dtE0, t, ymd, UTsec, E0dir, x, Vminx1, Vmaxx1, Vminx2, Vmaxx2, Vminx3, Vmaxx3, E01all, E02all, E03all, flagdirich)

A FILE INPUT BASED BOUNDARY CONDITIONS FOR ELECTRIC POTENTIAL OR FIELD-ALIGNED CURRENT. NOTE: THIS IS ONLY CALLED BY THE ROOT PROCESS

Read more…

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: dt
real(kind=wp), intent(in) :: dtE0
real(kind=wp), intent(in) :: t
integer, intent(in), dimension(3):: ymd
real(kind=wp), intent(in) :: UTsec
character(len=*), intent(in) :: E0dir
type(curvmesh), intent(in) :: x
real(kind=wp), intent(out), dimension(:,:), target:: Vminx1
real(kind=wp), intent(out), dimension(:,:), target:: Vmaxx1
real(kind=wp), intent(out), dimension(:,:):: Vminx2
real(kind=wp), intent(out), dimension(:,:):: Vmaxx2
real(kind=wp), intent(out), dimension(:,:):: Vminx3
real(kind=wp), intent(out), dimension(:,:):: Vmaxx3
real(kind=wp), intent(out), dimension(:,:,:):: E01all
real(kind=wp), intent(out), dimension(:,:,:):: E02all
real(kind=wp), intent(out), dimension(:,:,:):: E03all
integer, intent(out) :: flagdirich

public subroutine clear_potential_fileinput()

Arguments

None

public subroutine potentialBCs2D(t, x, Vminx1, Vmaxx1, Vminx2, Vmaxx2, Vminx3, Vmaxx3, E01all, E02all, E03all, flagdirich)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: t
type(curvmesh), intent(in) :: x
real(kind=wp), intent(out), dimension(:,:), target:: Vminx1
real(kind=wp), intent(out), dimension(:,:), target:: Vmaxx1
real(kind=wp), intent(out), dimension(:,:):: Vminx2
real(kind=wp), intent(out), dimension(:,:):: Vmaxx2
real(kind=wp), intent(out), dimension(:,:):: Vminx3
real(kind=wp), intent(out), dimension(:,:):: Vmaxx3
real(kind=wp), intent(out), dimension(:,:,:):: E01all
real(kind=wp), intent(out), dimension(:,:,:):: E02all
real(kind=wp), intent(out), dimension(:,:,:):: E03all
integer, intent(out) :: flagdirich

private impure elemental subroutine assert_file_exists(path)

throw error if file does not exist this accomodates non-Fortran 2018 error stop with variable character

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: path