Ignore:
Timestamp:
Mar 28, 2019 1:16:58 PM (6 years ago)
Author:
raasch
Message:

some routines instrumented with openmp directives, loop reordering for performance optimization

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r3786 r3832  
    2525! -----------------
    2626! $Id$
     27! instrumented with openmp directives
     28!
     29! 3786 2019-03-06 16:58:03Z raasch
    2730! further unused variables removed
    2831!
     
    19001903    i_off = surf%ioff
    19011904
     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)
    19021910    DO  m = 1, surf%ns
    19031911
     
    23962404
    23972405    ENDDO
     2406    !$OMP END PARALLEL
    23982407
    23992408!
     
    24382447       REAL(wp) ::  resistance    !< aerodynamic and soil resistance term
    24392448
     2449
     2450       !$OMP PARALLEL PRIVATE (m, i, j, k, e_s, q_s, resistance)
     2451       !$OMP DO SCHEDULE (STATIC)
    24402452       DO  m = 1, surf%ns
    24412453
     
    24742486                     
    24752487       ENDDO
     2488       !$OMP END PARALLEL
    24762489 
    24772490    END SUBROUTINE calc_q_surface
     
    52535266       ENDIF
    52545267
     5268       !$OMP PARALLEL PRIVATE (m, k, lambda_temp, lambda_h_sat, ke, tend, gamma_temp, h_vg, m_total)
     5269       !$OMP DO SCHEDULE (STATIC)
    52555270       DO  m = 1, surf%ns
    52565271
     
    55255540
    55265541       ENDDO
     5542       !$OMP END PARALLEL
    55275543
    55285544    END SUBROUTINE lsm_soil_model
Note: See TracChangeset for help on using the changeset viewer.