JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Trying to solve

Browse source 
Still I don't understand this basic thing...
This commit is contained in:
Jorge Gonzalez 2024-05-19 16:45:03 +02:00
commit e4f7987f90
1 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/modules/solver/electromagnetic/moduleEM.f90
View file

@ -170,8 +170,18 @@ MODULE moduleEM
REAL(8), INTENT(in):: phi(1:n) REAL(8), INTENT(in):: phi(1:n)
REAL(8):: n_e(1:n) REAL(8):: n_e(1:n)
REAL(8):: n_e0 = 1.0D16, phi_0 = -520.0D0, T_e = 11604.0 REAL(8):: n_e0 = 1.0D16, phi_0 = -520.0D0, T_e = 11604.0
INTEGER:: i
n_e = n_e0 / n_ref * EXP(-qe * (phi*Volt_ref - phi_0) / (kb * T_e)) DO i =1, n
IF (phi(i)*Volt_ref >= phi_0) THEN
n_e(i) = n_e0 / n_ref * EXP(-qe * (phi(i)*Volt_ref - phi_0) / (kb * T_e))
ELSE
n_e(i) = 0.D0
END IF
END DO
RETURN RETURN
@ -185,7 +195,7 @@ MODULE moduleEM
INTEGER, SAVE:: INFO INTEGER, SAVE:: INFO
INTEGER:: n INTEGER:: n
REAL(8), ALLOCATABLE, SAVE:: tempF(:) REAL(8), ALLOCATABLE, SAVE:: tempF(:)
REAL(8), ALLOCATABLE:: n_e(:), phi_old(:) REAL(8), ALLOCATABLE, SAVE:: n_e(:), phi_old(:)
INTEGER:: k INTEGER:: k
EXTERNAL:: dgetrs EXTERNAL:: dgetrs
@ -193,21 +203,19 @@ MODULE moduleEM
ALLOCATE(tempF(1:mesh%numNodes)) ALLOCATE(tempF(1:mesh%numNodes))
ALLOCATE(n_e(1:mesh%numNodes)) ALLOCATE(n_e(1:mesh%numNodes))
ALLOCATE(phi_old(1:mesh%numNodes)) ALLOCATE(phi_old(1:mesh%numNodes))
DO n = 1, mesh%numNodes n_e = 0.D0
tempF(n) = mesh%nodes(n)%obj%emData%phi
END DO
n_e = BoltzmannElectron(tempF, mesh%numNodes)
!$OMP END SINGLE
CALL assembleSourceVector(tempF, n_e) CALL assembleSourceVector(tempF, n_e)
!$OMP END SINGLE
!$OMP SINGLE !$OMP SINGLE
DO k = 1, 5 DO k = 1, 10
phi_old = tempF phi_old = tempF
CALL dgetrs('N', mesh%numNodes, 1, mesh%K, mesh%numNodes, & CALL dgetrs('N', mesh%numNodes, 1, mesh%K, mesh%numNodes, &
mesh%IPIV, tempF, mesh%numNodes, info) mesh%IPIV, tempF, mesh%numNodes, info)
PRINT *, MAXVAL(n_e), MINVAL(n_e)
PRINT *, MAXVAL(tempF), MINVAL(tempF)
PRINT*, k, "diff = ", MAXVAL(ABS(tempF - phi_old)) PRINT*, k, "diff = ", MAXVAL(ABS(tempF - phi_old))
n_e = BoltzmannElectron(tempF, mesh%numNodes) n_e = BoltzmannElectron(tempF, mesh%numNodes)
CALL assembleSourceVector(tempF, n_e) CALL assembleSourceVector(tempF, n_e)
@ -232,7 +240,7 @@ MODULE moduleEM
END IF END IF
!$OMP SINGLE !$OMP SINGLE
DEALLOCATE(tempF) DEALLOCATE(tempF, n_e, phi_old)
!$OMP END SINGLE !$OMP END SINGLE
END SUBROUTINE solveElecFieldBoltzmann END SUBROUTINE solveElecFieldBoltzmann