Changeset 4168 for palm/trunk/SOURCE/data_output_mask.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/data_output_mask.f90 (modified) (5 diffs)

palm/trunk/SOURCE/data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Remove variable grid
+! 
+! 4167 2019-08-16 11:01:48Z suehring
 ! Changed behaviour of masked output over surface to follow terrain and ignore 
 ! buildings (J.Resler, T.Gronemeier)
@@ -225 +228 @@
 
     IMPLICIT NONE
-
-    CHARACTER(LEN=5) ::  grid !< flag to distinquish between staggered grids
 
     INTEGER(iwp) ::  av                      !< flag for (non-)average output
@@ -310 +311 @@
        ENDIF
 !
-!--    Set default grid for terrain-following output
-       grid = 's'
-!
 !--    Store the variable chosen.
        resorted = .FALSE.
@@ -373 +371 @@
                          im = mask_i(mid,i)
                          jm = mask_j(mid,j)
-                         ktt = MINLOC( MERGE( 1, 0, BTEST( wall_flags_0(:,jm,im), 5 )), DIM = 1 ) - 1
+                         ktt = MINLOC( MERGE( 1, 0, BTEST( wall_flags_0(:,jm,im), 5 )),&
+                                       DIM = 1 ) - 1
                          DO  k = 1, mask_size_l(mid,3)
                             kk = MIN( ktt+mask_k(mid,k), nzt+1 )
@@ -685 +684 @@
 
           CASE ( 'w' )
-             grid = 'w'
              IF ( av == 0 )  THEN
                 to_be_resorted => w