gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2014-09-23 14:18:25 -03:00
commit d07d3b276e
1 changed files with 6 additions and 2 deletions

8
src/refinement.F90

@ -514,11 +514,11 @@ module refinement
do j = jbl, jeu
do i = ibl, ieu
! calculate the magnitude of current density
! calculate the squared magnitude of current density
!
jabs = sum(jc(inx:inz,i,j,k)**2)
! find the maximum current density
! find the maximum of squared current density
!
jmax = max(jmax, real(jabs, kind=4))
@ -526,6 +526,10 @@ module refinement
end do ! j = jbl, jeu
end do ! kbl, keu
! return the maximum current density
!
jmax = sqrt(jmax)
!-------------------------------------------------------------------------------
!
end function current_density_magnitude