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

    r4058 r4069  
    2626! -----------------
    2727! $Id$
     28! Masked output running index mid has been introduced as a local variable to
     29! avoid runtime error (Loop variable has been modified) in time_integration
     30!
     31! 4058 2019-06-27 15:25:42Z knoop
    2832! Bugfix: to_be_resorted was uninitialized in case of s_H2O in 3d_data_averaging
    2933!
     
    1071610720!> Subroutine defining mask output variables
    1071710721!------------------------------------------------------------------------------!
    10718  SUBROUTINE salsa_data_output_mask( av, variable, found, local_pf )
     10722 SUBROUTINE salsa_data_output_mask( av, variable, found, local_pf, mid )
    1071910723
    1072010724    USE arrays_3d,                                                                                 &
     
    1072210726
    1072310727    USE control_parameters,                                                                        &
    10724         ONLY:  mask_size_l, mask_surface, mid
     10728        ONLY:  mask_size_l, mask_surface
    1072510729
    1072610730    USE surface_mod,                                                                               &
     
    1074010744    INTEGER(iwp) ::  j               !< loop index in y-direction
    1074110745    INTEGER(iwp) ::  k               !< loop index in z-direction
     10746    INTEGER(iwp) ::  mid            !< masked output running index
    1074210747    INTEGER(iwp) ::  topo_top_ind    !< k index of highest horizontal surface
    1074310748
Note: See TracChangeset for help on using the changeset viewer.