Changeset 4444 for palm/trunk/SOURCE/data_output_mask.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (4 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

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

palm/trunk/SOURCE/data_output_mask.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+!
+! 4377 2020-01-15 11:10:51Z gronemeier
 ! bugfix: set fill value for output according to wall_flags_total_0 for
 !         non-terrain following output
@@ -93 +96 @@
     USE control_parameters,                                                    &
         ONLY:  air_chemistry, domask, domask_no, domask_time_count, mask_i,    &
-               mask_j, mask_k, mask_size, mask_size_l, mask_start_l,           &
-               mask_surface,                                                   &
+               mask_j, mask_k, mask_size_l, mask_surface,                                                   &
                max_masks, message_string, nz_do3d, salsa,                      &
                time_since_reference_point
+
+#if defined( __parallel )
+    USE control_parameters,                                                    &
+        ONLY:  mask_size, mask_start_l
+#endif
 
     USE diagnostic_output_quantities_mod,                                      &
@@ -134 +141 @@
 
     INTEGER(iwp) ::  av                      !< flag for (non-)average output
-    INTEGER(iwp) ::  ngp                     !< number of grid points of an output slice
     INTEGER(iwp) ::  flag_nr                 !< number of masking flag
     INTEGER(iwp) ::  i                       !< loop index
@@ -146 +152 @@
     INTEGER(iwp) ::  n                       !< loop index
     INTEGER(iwp) ::  netcdf_data_format_save !< value of netcdf_data_format
+    INTEGER(iwp) ::  ktt                     !< k index of highest terrain surface
+#if defined( __parallel )
+    INTEGER(iwp) ::  ngp                     !< number of grid points of an output slice
     INTEGER(iwp) ::  sender                  !< PE id of sending PE
-    INTEGER(iwp) ::  ktt                     !< k index of highest terrain surface
     INTEGER(iwp) ::  ind(6)                  !< index limits (lower/upper bounds) of array 'local_2d'
+#endif
 
     LOGICAL ::  found      !< true if output variable was found