ROOT MPI COMM./SOLVE ROUTINE FOR POTENTIAL. THIS VERSION INCLUDES THE POLARIZATION CURRENT TIME DERIVATIVE PART AND CONVECTIVE PARTS IN MATRIX SOLUTION. STATE VARIABLES VS2,3 INCLUDE GHOST CELLS. FOR NOW THE POLARIZATION TERMS ARE PASSED BACK TO MAIN FN, EVEN THOUGH THEY ARE NOT USED (THEY MAY BE IN THE FUTURE)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | it | |||
real(kind=wp), | intent(in) | :: | t | |||
real(kind=wp), | intent(in) | :: | dt | |||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | sig0 | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | sigP | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | sigH | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | incap | ||
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(:,:,:) | :: | vn2 | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | vn3 | ||
real(kind=wp), | intent(in) | :: | sourcemlat | |||
real(kind=wp), | intent(in), | dimension(-1:,-1:,-1:) | :: | B1 | ||
type(curvmesh), | intent(in) | :: | x | |||
integer, | intent(in) | :: | potsolve | |||
integer, | intent(in) | :: | flagcap | |||
real(kind=wp), | intent(out), | dimension(:,:,:) | :: | E1 | ||
real(kind=wp), | intent(out), | dimension(:,:,:) | :: | E2 | ||
real(kind=wp), | intent(out), | dimension(:,:,:) | :: | E3 | ||
real(kind=wp), | intent(out), | dimension(:,:,:) | :: | J1 | ||
real(kind=wp), | intent(out), | dimension(:,:,:) | :: | J2 | ||
real(kind=wp), | intent(out), | dimension(:,:,:) | :: | J3 | ||
real(kind=wp), | intent(inout), | dimension(:,:,:) | :: | Phiall | ||
integer, | intent(in) | :: | flagE0file | |||
real(kind=wp), | intent(in) | :: | dtE0 | |||
character(len=*), | intent(in) | :: | E0dir | |||
integer, | intent(in), | dimension(3) | :: | ymd | ||
real(kind=wp), | intent(in) | :: | UTsec |