Changeset 4627 for palm


Ignore:
Timestamp:
Jul 26, 2020 10:14:44 AM (3 months ago)
Author:
raasch
Message:

bugfix for r4646

File:
1 edited

Legend:

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

    r4626 r4627  
    2424! -----------------
    2525! $Id$
     26! bugfix for r4626
     27!
     28! 4626 2020-07-26 09:49:48Z raasch
    2629! file re-formatted to follow the PALM coding standard
    2730!
     
    363366 SUBROUTINE dynamics_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit )
    364367
     368    INTEGER(iwp),      INTENT(IN)     ::  dots_max
     369
    365370    CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_label
    366371    CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_unit
    367372
    368     INTEGER(iwp),      INTENT(IN)     ::  dots_max
    369373    INTEGER(iwp),      INTENT(INOUT)  ::  dots_num
    370374
Note: See TracChangeset for help on using the changeset viewer.