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

    r4046 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! 4046 2019-06-21 17:32:04Z knoop
    2731! removal of special treatment for usm_define_netcdf_grid call
    2832!
     
    697701               mask_size_l, mask_i, mask_i_global, mask_j, mask_j_global,      &
    698702               mask_k_global, mask_surface,                                    &
    699                message_string, mid, ntdim_2d_xy, ntdim_2d_xz,                  &
     703               message_string, ntdim_2d_xy, ntdim_2d_xz,                       &
    700704               ntdim_2d_yz, ntdim_3d, nz_do3d, ocean_mode, plant_canopy,       &
    701705               run_description_header, salsa, section, simulated_time,         &
     
    796800    INTEGER(iwp) ::  k                                       !<
    797801    INTEGER(iwp) ::  kk                                      !<
     802    INTEGER(iwp) ::  mid                                     !< masked output running index
    798803    INTEGER(iwp) ::  ns                                      !<
    799804    INTEGER(iwp) ::  ns_do                                   !< actual value of ns for soil model data
Note: See TracChangeset for help on using the changeset viewer.