Changeset 3768 for palm/trunk/SOURCE/user_data_output_mask.f90

Timestamp:

Feb 27, 2019 2:35:58 PM (5 years ago)

Author:

raasch

Message:

variables commented out + statement added to avoid compiler warnings about unused variables

File:

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

palm/trunk/SOURCE/user_data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables commented + statement added to avoid compiler warnings about unused variables
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Add terrain-following output
 ! 
@@ -76 +79 @@
 
     INTEGER(iwp) ::  av             !< 
-    INTEGER(iwp) ::  i              !< 
-    INTEGER(iwp) ::  j              !< 
-    INTEGER(iwp) ::  k              !< 
-    INTEGER(iwp) ::  topo_top_ind   !< k index of highest horizontal surface
+!    INTEGER(iwp) ::  i              !<
+!    INTEGER(iwp) ::  j              !<
+!    INTEGER(iwp) ::  k              !<
+!    INTEGER(iwp) ::  topo_top_ind   !< k index of highest horizontal surface
 
     LOGICAL ::  found               !< 
@@ -86 +89 @@
        DIMENSION(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) ::  &
           local_pf   !< 
+
+!
+!-- Next line is to avoid compiler warning about unused variables. Please remove.
+    IF ( av == 0  .OR.                                                                             &
+         local_pf(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) == 0.0_wp )  CONTINUE