Changeset 4124 for palm


Ignore:
Timestamp:
Jul 26, 2019 2:22:39 PM (5 years ago)
Author:
gronemeier
Message:

remove unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_module.f90

    r4123 r4124  
    26212621   CHARACTER(LEN=*), PARAMETER ::  routine_name = 'dom_write_var'  !< name of routine
    26222622
    2623    INTEGER(iwp) ::  d                    !< loop index
    26242623   INTEGER(iwp) ::  file_id              !< file ID
    26252624   INTEGER(iwp) ::  i                    !< loop index
     
    36443643   INTEGER(iwp) ::  d  !< loop index
    36453644   INTEGER(iwp) ::  i  !< loop index
    3646    INTEGER(iwp) ::  j  !< count index
    36473645
    36483646   INTEGER(iwp), DIMENSION(:), INTENT(IN)  ::  bounds_end           !< upper bonuds to be searched in
Note: See TracChangeset for help on using the changeset viewer.