https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120847
Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|WAITING |NEW
--- Comment #7 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
If I uncomment any one of the fallowing three lines that use the nint function
within the sla function of the program it reproduces the ICE.
! Compute the two horizontal global indices of the departure point based
on the local upwind speed.
!
! ioff(1) = nint(gms % u(jx, jy, jz) * time_step / hgrid_step)
! Upwind X distance in grid cells ...
idep(1) = max(0, min(nxglobal-1, jx + nxslab * ico(1) -
ioff(1))) ! determines X departure global index.
! ioff(2) = nint(gms % v(jx, jy, jz) * time_step / hgrid_step)
! Upwind Y distance in grid cells ...
idep(2) = max(0, min(nyglobal-1, jy + nyslab * ico(2) -
ioff(2))) ! determines Y departure global index.
! ioff(3) = nint(gms % w(jx, jy, jz) * time_step / vgrid_step)
! Upwind Z distance in grid cells ...
idep(3) = max(0, min(nzglobal-1, jz -
ioff(3))) ! determines Z departure global index.
!
This should help.
