Ignore:
Timestamp:
Jul 1, 2019 2:05:51 PM (5 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/time_integration.f90

    r4064 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! 4064 2019-07-01 05:33:33Z gronemeier
    2731! Moved call to radiation module out of intermediate time loop
    2832!
     
    572576               indoor_model, intermediate_timestep_count, intermediate_timestep_count_max,         &
    573577               land_surface, large_scale_forcing, loop_optimization, lsf_surf, lsf_vert, masks,    &
    574                mid, multi_agent_system_end, multi_agent_system_start, nesting_offline, neutral,    &
     578               multi_agent_system_end, multi_agent_system_start, nesting_offline, neutral,         &
    575579               nr_timesteps_this_run, nudging, ocean_mode, passive_scalar, pt_reference,           &
    576580               pt_slope_offset, random_heatflux, rans_mode, rans_tke_e, run_coupled, salsa,        &
     
    728732    CHARACTER (LEN=9) ::  time_to_string   !<
    729733
    730     INTEGER(iwp)      ::  ib        !< index for aerosol size bins
    731     INTEGER(iwp)      ::  ic        !< index for aerosol mass bins
    732     INTEGER(iwp)      ::  icc       !< additional index for aerosol mass bins
    733     INTEGER(iwp)      ::  ig        !< index for salsa gases
    734     INTEGER(iwp)      ::  lsp
    735     INTEGER(iwp)      ::  lsp_usr   !<
    736     INTEGER(iwp)      ::  n         !< loop counter for chemistry species
     734    INTEGER(iwp) ::  ib        !< index for aerosol size bins
     735    INTEGER(iwp) ::  ic        !< index for aerosol mass bins
     736    INTEGER(iwp) ::  icc       !< additional index for aerosol mass bins
     737    INTEGER(iwp) ::  ig        !< index for salsa gases
     738    INTEGER(iwp) ::  lsp
     739    INTEGER(iwp) ::  lsp_usr   !<
     740    INTEGER(iwp) ::  mid       !< masked output running index
     741    INTEGER(iwp) ::  n         !< loop counter for chemistry species
    737742
    738743    REAL(wp) ::  dt_3d_old  !< temporary storage of timestep to be used for
     
    18701875                CALL doq_calculate
    18711876
    1872              CALL data_output_mask( 0 )
     1877             CALL data_output_mask( 0, mid )
    18731878             time_domask(mid) = MOD( time_domask(mid), MAX( dt_domask(mid), dt_3d ) )
    18741879          ENDIF
     
    18901895          CALL data_output_3d( 1 )
    18911896          DO  mid = 1, masks
    1892              CALL data_output_mask( 1 )
     1897             CALL data_output_mask( 1, mid )
    18931898          ENDDO
    18941899          time_do_av = MOD( time_do_av, MAX( dt_data_output_av, dt_3d ) )
Note: See TracChangeset for help on using the changeset viewer.