Changeset 4124

Timestamp:

Jul 26, 2019 2:22:39 PM (5 years ago)

Author:

gronemeier

Message:

remove unused variables

File:

• palm/trunk/SOURCE/data_output_module.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_module.f90

@@ -2621 +2621 @@
    CHARACTER(LEN=*), PARAMETER ::  routine_name = 'dom_write_var'  !< name of routine
 
-   INTEGER(iwp) ::  d                    !< loop index
    INTEGER(iwp) ::  file_id              !< file ID
    INTEGER(iwp) ::  i                    !< loop index
@@ -3644 +3643 @@
    INTEGER(iwp) ::  d  !< loop index
    INTEGER(iwp) ::  i  !< loop index
-   INTEGER(iwp) ::  j  !< count index
 
    INTEGER(iwp), DIMENSION(:), INTENT(IN)  ::  bounds_end           !< upper bonuds to be searched in