Skip to content

Commit

Permalink
removed extra write in kt_grids
Browse files Browse the repository at this point in the history
  • Loading branch information
DenSto committed Apr 27, 2022
1 parent bfe19fc commit d3ae419
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion kt_grids.f90
Original file line number Diff line number Diff line change
Expand Up @@ -361,7 +361,6 @@ subroutine init_kt_grids_box
phase_shift_angle = -2.*pi * (2 * nperiod - 1) * geo_surf%qinp_psi0 * dydalpha / rhostar
else if (randomize_phase_shift) then
if (proc0) phase_shift_angle = 2.*pi * ranf() / norm
write (*, *) phase_shift_angle
call broadcast(phase_shift_angle)
else
phase_shift_angle = 2.*pi * phase_shift_angle / norm
Expand Down

0 comments on commit d3ae419

Please sign in to comment.