Changeset 4823 for palm/trunk/SOURCE/timestep.f90

Timestamp:

Dec 11, 2020 2:23:10 PM (4 years ago)

Author:

raasch

Message:

reverted accidentally changed routines

File:

• palm/trunk/SOURCE/timestep.f90 (modified) (1 diff)

palm/trunk/SOURCE/timestep.f90

@@ -223 +223 @@
 !
 !-- Determine the maxima of the velocity components, including their grid index positions.
-!    CALL global_min_max( nzb, nzt+1, nysg, nyng, nxlg, nxrg, u, 'abs', 0.0_wp, u_max, u_max_ijk )
-!    CALL global_min_max( nzb, nzt+1, nysg, nyng, nxlg, nxrg, v, 'abs', 0.0_wp, v_max, v_max_ijk )
+    CALL global_min_max( nzb, nzt+1, nysg, nyng, nxlg, nxrg, u, 'abs', 0.0_wp, u_max, u_max_ijk )
+    CALL global_min_max( nzb, nzt+1, nysg, nyng, nxlg, nxrg, v, 'abs', 0.0_wp, v_max, v_max_ijk )
     CALL global_min_max( nzb, nzt+1, nysg, nyng, nxlg, nxrg, w, 'abs', 0.0_wp, w_max, w_max_ijk )