Electric arcs example
Local variables to be added
The following local variables need to be defined for the examples in this section:
integer iel, mode
integer iesp , idimve
double precision tinit, hinit, coefe(
ngazem)
integer, allocatable, dimension(:) :: lstelt
double precision, dimension(:), pointer :: cvar_scalt, cvar_ycoel
double precision, dimension(:), pointer :: cvar_potr, cvar_poti, cvar_potva
Allocation
Before user initialization, work arrays lstelt must be allocated, like in basic example.
Initialization
Some controls are made during initialization:
Classical initialization:
mode = -1
coefe(1) = 1.d0
coefe(iesp) = 0.d0
enddo
endif
else
mode = -1
endif
cvar_scalt(iel) = hinit
enddo
cvar_ycoel(iel) = 1.d0
enddo
cvar_ycoel(iel) = 0.d0
enddo
enddo
endif
cvar_potr(iel) = 0.d0
enddo
cvar_poti(iel) = 0.d0
enddo
endif
cvar_potva(iel) = 0.d0
enddo
enddo
endif
endif
Finalization
At the end of the subroutine, it is recommended to deallocate the work array lstelt, like in basic example.