Changeset 3241 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Sep 12, 2018 3:02:00 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r3042 r3241 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3042 2018-05-25 10:44:37Z schwenkel 27 30 ! Changed the name specific humidity to mixing ratio 28 31 ! … … 287 290 USE control_parameters, & 288 291 ONLY: average_count_pr, cloud_droplets, cloud_physics, do_sum, & 289 dt_3d, g, humidity, initializing_actions, kappa, land_surface,&292 dt_3d, g, humidity, initializing_actions, land_surface, & 290 293 large_scale_forcing, large_scale_subsidence, max_pr_user, & 291 294 message_string, neutral, microphysics_morrison, & … … 348 351 INTEGER(iwp) :: l !< loop variable over surface facing -- up- or downward-facing 349 352 INTEGER(iwp) :: nt !< 350 353 !$ INTEGER(iwp) :: omp_get_thread_num !< 351 354 INTEGER(iwp) :: sr !< 352 355 INTEGER(iwp) :: tn !< … … 359 362 REAL(wp) :: height !< 360 363 REAL(wp) :: pts !< 361 REAL(wp) :: sums_l_eper !<362 364 REAL(wp) :: sums_l_etot !< 363 365 REAL(wp) :: ust !< … … 675 677 !-- are zero at the walls and inside buildings. 676 678 tn = 0 677 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper,&679 !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, & 678 680 !$OMP sums_l_etot, tn, ust, ust2, u2, vst, vst2, v2, & 679 681 !$OMP w2, flag, m, ki, l )
Note: See TracChangeset
for help on using the changeset viewer.