Changeset 4823 for palm

Timestamp:

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

Author:

raasch

Message:

reverted accidentally changed routines

Location:

palm/trunk/SOURCE

Files:

• global_min_max.f90 (modified) (1 diff)
• timestep.f90 (modified) (1 diff)

palm/trunk/SOURCE/global_min_max.f90

@@ -394 +394 @@
     IF ( value_ijk(2) > ny ) value_ijk(2) = value_ijk(2) - (ny+1)
 
-    WRITE (9,*) 'global_min_max: value = ', value, ' kji = ', value_ijk, ' ar=', &
-                ar(value_ijk(1),value_ijk(2),value_ijk(3))
-
  END SUBROUTINE global_min_max

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 )