Changeset 4069 for palm/trunk/SOURCE/data_output_mask.f90
- Timestamp:
- Jul 1, 2019 2:05:51 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_mask.f90
r4039 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 ! 4039 2019-06-18 10:32:41Z suehring 27 31 ! Modularize diagnostic output 28 32 ! … … 156 160 !> Masked data output in netCDF format for current mask (current value of mid). 157 161 !------------------------------------------------------------------------------! 158 SUBROUTINE data_output_mask( av )162 SUBROUTINE data_output_mask( av, mid ) 159 163 160 164 … … 180 184 mask_j, mask_k, mask_size, mask_size_l, mask_start_l, & 181 185 mask_surface, & 182 max_masks, message_string, mid, nz_do3d, salsa,&186 max_masks, message_string, nz_do3d, salsa, & 183 187 time_since_reference_point 184 188 … … 229 233 INTEGER(iwp) :: k !< loop index 230 234 INTEGER(iwp) :: kk !< vertical index 235 INTEGER(iwp) :: mid !< masked output running index 231 236 INTEGER(iwp) :: n !< loop index 232 237 INTEGER(iwp) :: netcdf_data_format_save !< value of netcdf_data_format … … 686 691 IF ( radiation ) THEN 687 692 CALL radiation_data_output_mask(av, domask(mid,av,ivar), found,& 688 local_pf )693 local_pf, mid ) 689 694 ENDIF 690 695 691 696 IF ( air_chemistry ) THEN 692 697 CALL chem_data_output_mask(av, domask(mid,av,ivar), found, & 693 local_pf )698 local_pf, mid ) 694 699 ENDIF 695 700 ! 696 701 !-- Check for diagnostic quantities 697 CALL doq_output_mask( av, domask(mid,av,ivar), found, local_pf ) 702 CALL doq_output_mask( av, domask(mid,av,ivar), found, local_pf, & 703 mid) 698 704 ! 699 705 !-- SALSA quantities 700 706 IF ( salsa ) THEN 701 707 CALL salsa_data_output_mask( av, domask(mid,av,ivar), found, & 702 local_pf )708 local_pf, mid ) 703 709 ENDIF 704 710 ! … … 706 712 IF ( .NOT. found ) THEN 707 713 CALL user_data_output_mask(av, domask(mid,av,ivar), found, & 708 local_pf )714 local_pf, mid ) 709 715 ENDIF 710 716
Note: See TracChangeset
for help on using the changeset viewer.