Changeset 3467 for palm/trunk/SOURCE/data_output_3d.f90
- Timestamp:
- Oct 30, 2018 7:05:21 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE
-
palm/trunk/SOURCE/data_output_3d.f90
r3448 r3467 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Implementation of a new aerosol module salsa. 28 ! 29 ! 3448 2018-10-29 18:14:31Z kanani 27 30 ! Adjustment of biometeorology calls 28 31 ! … … 291 294 USE radiation_model_mod, & 292 295 ONLY: nzub, nzut, radiation, radiation_data_output_3d 296 297 USE salsa_mod, & 298 ONLY: salsa, salsa_data_output_3d 293 299 294 300 USE turbulence_closure_mod, & … … 775 781 resorted = .TRUE. 776 782 ENDIF 783 784 ! 785 !-- SALSA output 786 IF ( .NOT. found .AND. salsa ) THEN 787 CALL salsa_data_output_3d( av, do3d(av,if), found, local_pf ) 788 resorted = .TRUE. 789 ENDIF 777 790 778 791 IF ( .NOT. found .AND. biometeorology ) THEN
Note: See TracChangeset
for help on using the changeset viewer.