Changeset 3298 for palm/trunk/SOURCE/data_output_mask.f90
- Timestamp:
- Oct 2, 2018 12:21:11 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE
- Property svn:mergeinfo changed
-
palm/trunk/SOURCE/data_output_mask.f90
r3274 r3298 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Minor formatting (kanani) 28 ! Call for chem_data_output_mask added (basit) 29 ! 30 ! 3274 2018-09-24 15:42:55Z knoop 27 31 ! Modularization of all bulk cloud physics code components 28 32 ! … … 133 137 ONLY: e, nc, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, & 134 138 tend, u, v, vpt, w, d_exner 135 139 136 140 USE averaging, & 137 141 ONLY: e_av, lpt_av, nc_av, nr_av, p_av, pc_av, pr_av, pt_av, q_av, & … … 141 145 USE basic_constants_and_equations_mod, & 142 146 ONLY: lv_d_cp 143 147 148 USE chemistry_model_mod, & 149 ONLY: chem_data_output_mask 150 144 151 USE control_parameters, & 145 ONLY: domask, domask_no, domask_time_count, mask_i,&152 ONLY: air_chemistry, domask, domask_no, domask_time_count, mask_i, & 146 153 mask_j, mask_k, mask_size, mask_size_l, mask_start_l, & 147 154 max_masks, message_string, mid, nz_do3d, simulated_time … … 151 158 USE indices, & 152 159 ONLY: nbgp, nxl, nxr, nyn, nys, nzb 153 160 154 161 USE kinds 155 162 … … 524 531 525 532 CASE DEFAULT 526 527 533 ! 528 534 !-- Radiation quantity … … 532 538 ENDIF 533 539 540 IF ( air_chemistry ) THEN 541 CALL chem_data_output_mask(av, domask(mid,av,ivar), found, & 542 local_pf ) 543 ENDIF 534 544 ! 535 545 !-- User defined quantity
Note: See TracChangeset
for help on using the changeset viewer.