Changeset 4168 for palm/trunk/SOURCE/header.f90

Timestamp:

Aug 16, 2019 1:50:17 PM (5 years ago)

Author:

suehring

Message:

Replace get_topography_top_index functions by pre-calculated arrays in order to save computational resources

File:

• palm/trunk/SOURCE/header.f90 (modified) (4 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Replace function get_topography_top_index by topo_top_ind
+! 
+! 4069 2019-07-01 14:05:51Z Giersch
 ! Masked output running index mid has been introduced as a local variable to 
 ! avoid runtime error (Loop variable has been modified) in time_integration 
@@ -449 +452 @@
     USE indices,                                                               &
         ONLY:  mg_loc_ind, nnx, nny, nnz, nx, ny, nxl_mg, nxr_mg, nyn_mg,      &
-               nys_mg, nzt, nzt_mg
+               nys_mg, nzt, nzt_mg, topo_top_ind
 
     USE kinds
@@ -478 +481 @@
 
     USE surface_mod,                                                           &
-        ONLY:  surf_def_h, get_topography_top_index_ji
+        ONLY:  surf_def_h
 
     USE turbulence_closure_mod,                                                &
@@ -1111 +1114 @@
        WRITE( io, 280 ) 
        IF ( turbulent_inflow )  THEN
-          WRITE( io, 281 )  zu( get_topography_top_index_ji( 0, 0, 's' ) )
+          WRITE( io, 281 )  zu(topo_top_ind(0,0,0))
        ENDIF
        IF ( TRIM( initializing_actions ) == 'cyclic_fill' )  THEN