Changeset 3614 for palm/trunk/SOURCE/surface_output_mod.f90

Timestamp:

Dec 10, 2018 7:05:46 AM (6 years ago)

Author:

raasch

Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:

• palm/trunk/SOURCE/surface_output_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/surface_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3572 2018-11-28 11:40:28Z suehring
 ! Added short- and longwave radiation flux arrays (e.g. diffuse, direct,
 ! reflected, resedual) for all surfaces (M. Salim)
@@ -166 +169 @@
 
       INTEGER(iwp) ::  i                 !< grid index in x-direction, also running variable for counting non-average data output
-      INTEGER(iwp) ::  ilen              !< string length
       INTEGER(iwp) ::  j                 !< grid index in y-direction, also running variable for counting average data output
       INTEGER(iwp) ::  k                 !< grid index in z-direction
       INTEGER(iwp) ::  l                 !< running index for surface-element orientation
       INTEGER(iwp) ::  m                 !< running index for surface elements
-      INTEGER(iwp) ::  n_out             !< running index for number of output variables   
       INTEGER(iwp) ::  npg               !< counter variable for all surface elements ( or polygons )
       INTEGER(iwp) ::  point_index_count !< local counter variable for point index
@@ -875 +876 @@
       INTEGER(iwp) ::  av     !< id indicating average or non-average data output
       INTEGER(iwp) ::  i      !< loop index
-      INTEGER(iwp) ::  l      !< running index for surface-element orientation
-      INTEGER(iwp) ::  m      !< running index for surface elements
       INTEGER(iwp) ::  n_out  !< counter variables for surface output
 
@@ -2264 +2263 @@
       CHARACTER(LEN=100) ::  trimvar !< dummy variable for current output variable
        
-      INTEGER(iwp) ::  l      !< running index for surface-element orientation
-      INTEGER(iwp) ::  m      !< running index for surface elements
       INTEGER(iwp) ::  n_out  !< counter variables for surface output
       
@@ -3513 +3510 @@
     SUBROUTINE surface_output_parin
 
-       USE control_parameters,                                                 &
-           ONLY:  message_string
-
        IMPLICIT NONE
 
@@ -3565 +3559 @@
 
        USE control_parameters,                                                 &
-           ONLY:  averaging_interval, dt_data_output, dt_data_output_av,       &
-                  message_string, skip_time_data_output,                       &
-                  skip_time_data_output_av
+           ONLY:  averaging_interval, dt_data_output, message_string
 
        IMPLICIT NONE