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/diagnostic_output_quantities_mod.f90

    r4039 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! 4039 2019-06-18 10:32:41Z suehring
    2731! - Add output of uu, vv, ww to enable variance calculation according temporal
    2832!   EC method
     
    679683!> temporary array with indices (i,j,k) for masked data output.
    680684!------------------------------------------------------------------------------!
    681  SUBROUTINE doq_output_mask( av, variable, found, local_pf )
     685 SUBROUTINE doq_output_mask( av, variable, found, local_pf, mid )
    682686 
    683687    USE control_parameters
     
    698702    INTEGER(iwp) ::  j            !< index variable along y-direction
    699703    INTEGER(iwp) ::  k            !< index variable along z-direction
     704    INTEGER(iwp) ::  mid          !< masked output running index
    700705    INTEGER(iwp) ::  topo_top_ind !< k index of highest horizontal surface
    701706
     
    965970
    966971    USE control_parameters,                                                    &
    967         ONLY:  do2d, do3d, domask, masks, mid
     972        ONLY:  do2d, do3d, domask, masks
    968973
    969974    IMPLICIT NONE
     
    976981    INTEGER(iwp) ::  ivar_all   !< loop index
    977982    INTEGER(iwp) ::  l          !< index for cutting string
     983    INTEGER(iwp) ::  mid          !< masked output running index
    978984
    979985    prepared_diagnostic_output_quantities = .FALSE.
Note: See TracChangeset for help on using the changeset viewer.