Changeset 2766 for palm/trunk/SOURCE/data_output_3d.f90
- Timestamp:
- Jan 22, 2018 5:17:47 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_3d.f90
r2756 r2766 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Removed preprocessor directive __chem 28 ! 29 ! 2756 2018-01-16 18:11:14Z suehring 27 30 ! Fill values for 3D output of chemical species introduced. 28 31 ! … … 185 188 USE averaging 186 189 187 #if defined( __chem )188 190 USE chemistry_model_mod, & 189 191 ONLY: chem_data_output_3d 190 #endif191 192 192 193 USE cloud_parameters, & … … 680 681 ! 681 682 !-- Chemistry model output 682 #if defined( __chem )683 683 IF ( .NOT. found .AND. air_chemistry ) THEN 684 684 CALL chem_data_output_3d( av, do3d(av,if), found, & … … 686 686 resorted = .TRUE. 687 687 ENDIF 688 #endif689 688 690 689 !
Note: See TracChangeset
for help on using the changeset viewer.