Changeset 3832 for palm/trunk/SOURCE/land_surface_model_mod.f90
- Timestamp:
- Mar 28, 2019 1:16:58 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r3786 r3832 25 25 ! ----------------- 26 26 ! $Id$ 27 ! instrumented with openmp directives 28 ! 29 ! 3786 2019-03-06 16:58:03Z raasch 27 30 ! further unused variables removed 28 31 ! … … 1900 1903 i_off = surf%ioff 1901 1904 1905 !$OMP PARALLEL PRIVATE (m, i, j, k, lambda_h_sat, ke, lambda_soil, lambda_surface, & 1906 !$OMP& c_surface_tmp, f1,m_total, f2, e_s, e, f3, m_min, m_liq_max, q_s, & 1907 !$OMP& f_qsws_veg, f_qsws_soil, f_qsws_liq, f_shf, f_qsws, e_s_dt, dq_s_dt, & 1908 !$OMP& coef_1, coef_2, tend) 1909 !$OMP DO SCHEDULE (STATIC) 1902 1910 DO m = 1, surf%ns 1903 1911 … … 2396 2404 2397 2405 ENDDO 2406 !$OMP END PARALLEL 2398 2407 2399 2408 ! … … 2438 2447 REAL(wp) :: resistance !< aerodynamic and soil resistance term 2439 2448 2449 2450 !$OMP PARALLEL PRIVATE (m, i, j, k, e_s, q_s, resistance) 2451 !$OMP DO SCHEDULE (STATIC) 2440 2452 DO m = 1, surf%ns 2441 2453 … … 2474 2486 2475 2487 ENDDO 2488 !$OMP END PARALLEL 2476 2489 2477 2490 END SUBROUTINE calc_q_surface … … 5253 5266 ENDIF 5254 5267 5268 !$OMP PARALLEL PRIVATE (m, k, lambda_temp, lambda_h_sat, ke, tend, gamma_temp, h_vg, m_total) 5269 !$OMP DO SCHEDULE (STATIC) 5255 5270 DO m = 1, surf%ns 5256 5271 … … 5525 5540 5526 5541 ENDDO 5542 !$OMP END PARALLEL 5527 5543 5528 5544 END SUBROUTINE lsm_soil_model
Note: See TracChangeset
for help on using the changeset viewer.