Changeset 3768 for palm/trunk/SOURCE/user_data_output_dvrp.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_dvrp.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_data_output_dvrp.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables commented + statement added to avoid compiler warnings about unused variables
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Error messages revised
 ! 
@@ -77 +80 @@
     CHARACTER (LEN=*) ::  output_variable !< 
 
-    INTEGER(iwp) ::  i !< 
-    INTEGER(iwp) ::  j !< 
-    INTEGER(iwp) ::  k !< 
+!    INTEGER(iwp) ::  i !<
+!    INTEGER(iwp) ::  j !<
+!    INTEGER(iwp) ::  k !<
 
     REAL(wp), DIMENSION(nxl_dvrp:nxr_dvrp+1,nys_dvrp:nyn_dvrp+1,nzb:nz_do3d) :: &
               local_pf !< 
+
+!
+!-- Next line is to avoid compiler warning about unused variables. Please remove.
+    IF ( local_pf(nxl_dvrp,nys_dvrp,nzb) == 0.0_wp )  CONTINUE
 
 !