diff --git a/flash2d/src/options-sphere/ADV_wind_stacked.f90 b/flash2d/src/options-sphere/ADV_wind_stacked.f90 index accdcb72fa6778770253bde1b32dd3627350faa9..3d7d5343a5b691489c702d876b99dae66edba2a4 100644 --- a/flash2d/src/options-sphere/ADV_wind_stacked.f90 +++ b/flash2d/src/options-sphere/ADV_wind_stacked.f90 @@ -500,6 +500,10 @@ !---------- compute lat/lon coordinates from Cartesian (given) coordinates r_coord = grid_kartgeo(r_cart) + +!---------- correct lon coordinates to 0..360 degrees + + IF(r_coord(1) .LT. 0_GRID_SR) r_coord(1)= r_coord(1)+ 360._GRID_SR !---------- find wind box corresponding to coordinate