Ignore:
Timestamp:
Jul 1, 2019 2:05:51 PM (23 months ago)
Author:
Giersch
Message:

Bugfix for masked output, compiler warning removed, test case for wind turbine model revised

File:
1 edited

Legend:

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

    r3655 r4069  
    2525! -----------------
    2626! $Id$
     27! Masked output running index mid has been introduced as a local variable to
     28! avoid runtime error (Loop variable has been modified) in time_integration
     29!
     30! 3655 2019-01-07 16:51:22Z knoop
    2731! unused variables and format statements removed
    2832!
     
    9498
    9599    USE control_parameters,                                                    &
    96         ONLY:  max_masks, mid, openfile
     100        ONLY:  max_masks, openfile
    97101               
    98102    USE kinds
     
    119123    INTEGER(iwp) ::  fid          !<
    120124    INTEGER(iwp) ::  file_id      !<
     125    INTEGER(iwp) ::  mid          !< masked output running index
    121126    INTEGER(iwp) ::  planz        !<
    122127
Note: See TracChangeset for help on using the changeset viewer.