Changeset 801 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Jan 10, 2012 5:30:36 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r792 r801 7 7 ! particle arrays (particles, parrticles_temp) implemented as pointers, 8 8 ! +particles_1, particles_2, sort_count 9 ! 10 ! Dimesion of sums_wsus_ws_l, ! sums_wsvs_ws_l, sums_us2_ws_l, sums_vs2_ws_l, 11 ! sums_ws2_ws_l, sums_wspts_ws_l, sums_wsqs_ws_l, sums_wssas_ws_l increased. 12 ! for thread-safe summation in advec_ws. 9 13 ! 10 14 ! Former revisions: … … 1439 1443 REAL :: u_max, v_max, w_max 1440 1444 REAL, DIMENSION(:), ALLOCATABLE :: sums_divnew_l, sums_divold_l, & 1445 weight_substep, weight_pres 1446 REAL, DIMENSION(:,:), ALLOCATABLE :: sums, sums_wsts_bc_l, ts_value, & 1441 1447 sums_wsus_ws_l, sums_wsvs_ws_l, & 1442 1448 sums_us2_ws_l, sums_vs2_ws_l, & 1443 1449 sums_ws2_ws_l, & 1444 1450 sums_wspts_ws_l, & 1445 sums_wssas_ws_l,sums_wsqs_ws_l, & 1446 weight_substep, weight_pres 1447 REAL, DIMENSION(:,:), ALLOCATABLE :: sums, sums_wsts_bc_l, ts_value 1451 sums_wssas_ws_l,sums_wsqs_ws_l 1448 1452 REAL, DIMENSION(:,:,:), ALLOCATABLE :: hom_sum, rmask, spectrum_x, & 1449 1453 spectrum_y, sums_l, sums_l_l, &
Note: See TracChangeset
for help on using the changeset viewer.