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

    r3766 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! 3766 2019-02-26 16:23:41Z raasch
    2731! unused variables removed
    2832!
     
    178182               mask_surface, mask_x,                                           &
    179183               mask_x_loop, mask_xyz_dimension, mask_y, mask_y_loop, mask_z,   &
    180                mask_z_loop, max_masks,  message_string, mid,                   &
     184               mask_z_loop, max_masks,  message_string,                        &
    181185               passive_scalar, ocean_mode, varnamelength
    182186
     
    216220    INTEGER(iwp) ::  k            !< loop index
    217221    INTEGER(iwp) ::  m            !< mask index
     222    INTEGER(iwp) ::  mid            !< masked output running index
    218223    INTEGER(iwp) ::  n            !< loop index
    219224    INTEGER(iwp) ::  sender       !< PE id of sending PE
Note: See TracChangeset for help on using the changeset viewer.