Ignore:
Timestamp:
Jul 1, 2019 2:05:51 PM (2 years 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/user_data_output_mask.f90

    r3768 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! 3768 2019-02-27 14:35:58Z raasch
    2731! variables commented + statement added to avoid compiler warnings about unused variables
    2832!
     
    5963!> temporary array with indices (i,j,k) for masked data output.
    6064!------------------------------------------------------------------------------!
    61  SUBROUTINE user_data_output_mask( av, variable, found, local_pf )
     65 SUBROUTINE user_data_output_mask( av, variable, found, local_pf, mid )
    6266 
    6367
     
    7983
    8084    INTEGER(iwp) ::  av             !<
     85    INTEGER(iwp) ::  mid            !< masked output running index
    8186!    INTEGER(iwp) ::  i              !<
    8287!    INTEGER(iwp) ::  j              !<
Note: See TracChangeset for help on using the changeset viewer.