Skip to content
Snippets Groups Projects
Commit c9264d9d authored by Behrens, Prof. Dr. Jörn's avatar Behrens, Prof. Dr. Jörn
Browse files

corrected latitude determination

parent e265a683
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
flash2d/src/options-sphere/ADV_wind_stacked.f90
+ 2
− 2
View file @ c9264d9d
...@@ -527,8 +527,8 @@ ...@@ -527,8 +527,8 @@
END IF END IF
determine_lat: DO i_cnt=1, i_lat-1 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),GRID_SR) .GE. r_coord(2)) THEN
IF(REAL(r_lat(i_cnt +1),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_loy= i_cnt
i_hiy= i_cnt+1 i_hiy= i_cnt+1
exit determine_lat exit determine_lat
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment