Changeset 4069 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- Jul 1, 2019 2:05:51 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r4064 r4069 25 25 ! ----------------- 26 26 ! $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 27 31 ! Moved call to radiation module out of intermediate time loop 28 32 ! … … 572 576 indoor_model, intermediate_timestep_count, intermediate_timestep_count_max, & 573 577 land_surface, large_scale_forcing, loop_optimization, lsf_surf, lsf_vert, masks, & 574 m id, multi_agent_system_end, multi_agent_system_start, nesting_offline, neutral,&578 multi_agent_system_end, multi_agent_system_start, nesting_offline, neutral, & 575 579 nr_timesteps_this_run, nudging, ocean_mode, passive_scalar, pt_reference, & 576 580 pt_slope_offset, random_heatflux, rans_mode, rans_tke_e, run_coupled, salsa, & … … 728 732 CHARACTER (LEN=9) :: time_to_string !< 729 733 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 737 742 738 743 REAL(wp) :: dt_3d_old !< temporary storage of timestep to be used for … … 1870 1875 CALL doq_calculate 1871 1876 1872 CALL data_output_mask( 0 )1877 CALL data_output_mask( 0, mid ) 1873 1878 time_domask(mid) = MOD( time_domask(mid), MAX( dt_domask(mid), dt_3d ) ) 1874 1879 ENDIF … … 1890 1895 CALL data_output_3d( 1 ) 1891 1896 DO mid = 1, masks 1892 CALL data_output_mask( 1 )1897 CALL data_output_mask( 1, mid ) 1893 1898 ENDDO 1894 1899 time_do_av = MOD( time_do_av, MAX( dt_data_output_av, dt_3d ) )
Note: See TracChangeset
for help on using the changeset viewer.