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

    r3967 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! 3967 2019-05-09 16:04:34Z gronemeier
    2731! Save binary data of virtual measurements within separate folder
    2832!
     
    189193    USE control_parameters,                                                    &
    190194        ONLY:  coupling_char, data_output_2d_on_each_pe,                       &
    191                max_masks, message_string, mid, nz_do3d, openfile,              &
     195               max_masks, message_string, nz_do3d, openfile,              &
    192196               run_description_header
    193197
     
    227231    INTEGER(iwp) ::  file_id     !<
    228232    INTEGER(iwp) ::  ioerr       !< IOSTAT flag for IO-commands ( 0 = no error )
     233    INTEGER(iwp) ::  mid         !< masked output running index
    229234   
    230235    LOGICAL ::  netcdf_extend    !<
Note: See TracChangeset for help on using the changeset viewer.