diff --git a/flash2d/src/options-sphere/ADV_wind_stacked.f90 b/flash2d/src/options-sphere/ADV_wind_stacked.f90 index 3d7d5343a5b691489c702d876b99dae66edba2a4..a50e3bdb7ed57f887582df5fc0e5a7dbcf00e51a 100644 --- a/flash2d/src/options-sphere/ADV_wind_stacked.f90 +++ b/flash2d/src/options-sphere/ADV_wind_stacked.f90 @@ -527,8 +527,8 @@ END IF determine_lat: DO i_cnt=1, i_lat-1 - IF(REAL(r_lat(i_cnt),GRID_SR) .LT. r_coord(2)) THEN - IF(REAL(r_lat(i_cnt +1),GRID_SR) .GE. r_coord(2)) THEN + IF(REAL(r_lat(i_cnt),GRID_SR) .GE. r_coord(2)) THEN + IF(REAL(r_lat(i_cnt +1),GRID_SR) .LT. r_coord(2)) THEN i_loy= i_cnt i_hiy= i_cnt+1 exit determine_lat