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

computation of kp_max for warning message was missing

parent c19902c9
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 0 deletions
src/collision_mod.F90
+ 1
− 0
View file @ 5cc6fc25
...@@ -693,6 +693,7 @@ CONTAINS ...@@ -693,6 +693,7 @@ CONTAINS
CALL allocate_array(kp_grid_mat, 1,nkp_mat) CALL allocate_array(kp_grid_mat, 1,nkp_mat)
CALL getarr(fid, '/coordkperp', kp_grid_mat) CALL getarr(fid, '/coordkperp', kp_grid_mat)
kp_max = SQRT(kx_max**2+ky_max**2)
! check that we have enough kperps mat ! check that we have enough kperps mat
IF (LINEARITY .NE. 'linear') THEN IF (LINEARITY .NE. 'linear') THEN
IF ( (kp_grid_mat(nkp_mat) .LT. 2./3.*kp_max) .AND. (my_id .EQ. 0)) WRITE(*,*) '!! Matrix kperp grid too small !!' IF ( (kp_grid_mat(nkp_mat) .LT. 2./3.*kp_max) .AND. (my_id .EQ. 0)) WRITE(*,*) '!! Matrix kperp grid too small !!'
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment