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

    r4067 r4069  
    2828! -----------------
    2929! $Id$
     30! Masked output running index mid has been introduced as a local variable to
     31! avoid runtime error (Loop variable has been modified) in time_integration
     32!
     33! 4067 2019-07-01 13:29:25Z suehring
    3034! Bugfix, pass dummy string to MPI_INFO_SET (J. Resler)
    3135!
     
    1110111105!> Subroutine defining masked data output
    1110211106!------------------------------------------------------------------------------!
    11103  SUBROUTINE radiation_data_output_mask( av, variable, found, local_pf )
     11107 SUBROUTINE radiation_data_output_mask( av, variable, found, local_pf, mid )
    1110411108 
    1110511109    USE control_parameters
     
    1112011124    INTEGER(iwp) ::  j               !<
    1112111125    INTEGER(iwp) ::  k               !<
     11126    INTEGER(iwp) ::  mid             !< masked output running index
    1112211127    INTEGER(iwp) ::  topo_top_ind    !< k index of highest horizontal surface
    1112311128
Note: See TracChangeset for help on using the changeset viewer.