Changeset 3435 for palm/trunk/SOURCE/modules.f90

Timestamp:

Oct 26, 2018 6:25:44 PM (5 years ago)

Author:

gronemeier

Message:

new: terrain-following masked output; bugfixes: increase vertical dimension of gamma_w_green_sat by 1, add checks for masked output for chemistry_model and radiation_model, reordered calls to xxx_define_netcdf_grid in masked output part

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! +mask_k_over_surface, mask_surface
+! 
+! 3422 2018-10-24 19:01:57Z gronemeier
 ! bugfix: increase number of blanks in output string
 ! 
@@ -1283 +1286 @@
     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  mask_j_global  !< global grid index of masked output point on y-dimension
     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  mask_k_global  !< global grid index of masked output point on z-dimension
+
+    INTEGER(iwp), DIMENSION(max_masks,mask_xyz_dimension) ::  mask_k_over_surface = -1  !< namelist parameter, k index of height over surface
 
     LOGICAL ::  agent_time_unlimited = .FALSE.                   !< namelist parameter
@@ -1393 +1398 @@
     LOGICAL ::  data_output_xz(0:1) = .FALSE.                !< output of xz cross-section data?
     LOGICAL ::  data_output_yz(0:1) = .FALSE.                !< output of yz cross-section data?
+
+    LOGICAL, DIMENSION(max_masks) ::  mask_surface = .FALSE.      !< flag for surface-following masked output
 
     REAL(wp) ::  advected_distance_x = 0.0_wp                  !< advected distance of model domain along x