Changeset 3909

Timestamp:

Apr 17, 2019 9:13:25 AM (6 years ago)

Author:

suehring

Message:

Minor bugfix in STG

File:

• palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor bugfix for last commit
+! 
+! 3900 2019-04-16 15:17:43Z suehring
 ! Missing re-calculation of perturbation seeds in case of restarts
 ! 
@@ -923 +926 @@
 
                 IF  ( a22(k) .NE. 0._wp ) THEN
-                   fv_xz(k,i) = ( v(k,j,i) / mc_factor - a21(k) * fu_yz(k,i) - &
+                   fv_xz(k,i) = ( v(k,j,i) / mc_factor - a21(k) * fu_xz(k,i) - &
                                v_init(k) ) / a22(k)
                 ELSE
@@ -930 +933 @@
 
                 IF  ( a33(k) .NE. 0._wp ) THEN
-                   fw_xz(k,i) = ( w(k,j,i) / mc_factor - a31(k) * fu_yz(k,i) - &
-                               a32(k) * fv_yz(k,i) ) / a33(k)
+                   fw_xz(k,i) = ( w(k,j,i) / mc_factor - a31(k) * fu_xz(k,i) - &
+                               a32(k) * fv_xz(k,i) ) / a33(k)
                 ELSE
                    fw_xz = 0._wp