From e265a68354e687f6ee7a6846ce0d1190284f614d Mon Sep 17 00:00:00 2001
From: Joern Behrens <joern.behrens@uni-hamburg.de>
Date: Fri, 4 Mar 2022 16:40:03 +0100
Subject: [PATCH] corrected longitude computation
---
flash2d/src/options-sphere/ADV_wind_stacked.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/flash2d/src/options-sphere/ADV_wind_stacked.f90 b/flash2d/src/options-sphere/ADV_wind_stacked.f90
index accdcb7..3d7d534 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
--
GitLab