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

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variable removed
+! 
+! 3083 2018-06-19 14:03:12Z gronemeier
 ! 
 ! 
@@ -144 +147 @@
 
     USE indices,                                                               &
-        ONLY:  nbgp, nxl, nxr, nyn, nys, nzb, nzt
+        ONLY:  nbgp, nxl, nxr, nyn, nys, nzb
         
     USE kinds
@@ -173 +176 @@
     INTEGER(iwp) ::  n        !< 
     INTEGER(iwp) ::  netcdf_data_format_save !<
-    INTEGER(iwp) ::  psi      !< 
     INTEGER(iwp) ::  sender   !< 
     INTEGER(iwp) ::  ind(6)   !<