From a3d7263ace79b8edd8b038f062cbaa0354f43766 Mon Sep 17 00:00:00 2001
From: Joern Behrens <joern.behrens@uni-hamburg.de>
Date: Fri, 18 Feb 2022 19:19:11 +0100
Subject: [PATCH] real conversion in wind interpolation
---
flash2d/src/options-sphere/ADV_wind_stacked.f90 | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/flash2d/src/options-sphere/ADV_wind_stacked.f90 b/flash2d/src/options-sphere/ADV_wind_stacked.f90
index 7c225e7..bdb68ff 100644
--- a/flash2d/src/options-sphere/ADV_wind_stacked.f90
+++ b/flash2d/src/options-sphere/ADV_wind_stacked.f90
@@ -428,12 +428,9 @@
WRITE(GRID_parameters%ioout,*) &
'***** reshaping core data arrays ... *****'
-! r_flowx = reshape(r_auxx, shape(r_flowx), order=(/4,3,2,1/))
-! r_flowy = reshape(r_auxy, shape(r_flowy), order=(/4,3,2,1/))
-! r_flowz = reshape(r_auxz, shape(r_flowz), order=(/4,3,2,1/))
- r_flowx = r_auxx
- r_flowy = r_auxy
- r_flowz = r_auxz
+ r_flowx = reshape(r_auxx, shape(r_flowx), order=(/4,3,2,1/))
+ r_flowy = reshape(r_auxy, shape(r_flowy), order=(/4,3,2,1/))
+ r_flowz = reshape(r_auxz, shape(r_flowz), order=(/4,3,2,1/))
DEALLOCATE(r_auxx, r_auxy, r_auxz)
!---------- Fix mask values
--
GitLab