Skip to content
Snippets Groups Projects
Commit 072b720f authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

corrrect adiabatic ion model

parent c728826a
No related branches found
No related tags found
No related merge requests found
...@@ -69,10 +69,7 @@ CONTAINS ...@@ -69,10 +69,7 @@ CONTAINS
!!!!!!!!!!!!!!! adiabatic ion model !!!!!!!!!!!!!!! adiabatic ion model
! Candy et al. 2007, rho_i = -q_i/tau_i phi ! Candy et al. 2007, rho_i = -q_i/tau_i phi
IF (ADIAB_I) THEN IF (ADIAB_I) THEN
DO iz = 1,local_nz ! No ion contribution
izi = iz+ngz/2
rho(iz) = rho(iz) - 0*q_i/tau_i * phi(iky,ikx,izi)
ENDDO
ENDIF ENDIF
!!!!!!!!!!!!!!! Inverting the poisson equation !!!!!!!!!!!!!!! Inverting the poisson equation
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment