Changeset 3832 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Mar 28, 2019 1:16:58 PM (5 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! instrumented with openmp directives
+! 
+! 3786 2019-03-06 16:58:03Z raasch
 ! further unused variables removed
 ! 
@@ -1900 +1903 @@
     i_off = surf%ioff
 
+    !$OMP PARALLEL PRIVATE (m, i, j, k, lambda_h_sat, ke, lambda_soil, lambda_surface,             &
+    !$OMP&                  c_surface_tmp, f1,m_total, f2, e_s, e, f3, m_min, m_liq_max, q_s,      &
+    !$OMP&                  f_qsws_veg, f_qsws_soil, f_qsws_liq, f_shf, f_qsws, e_s_dt, dq_s_dt,   &
+    !$OMP&                  coef_1, coef_2, tend)
+    !$OMP DO SCHEDULE (STATIC)
     DO  m = 1, surf%ns
 
@@ -2396 +2404 @@
 
     ENDDO
+    !$OMP END PARALLEL
 
 !
@@ -2438 +2447 @@
        REAL(wp) ::  resistance    !< aerodynamic and soil resistance term
 
+
+       !$OMP PARALLEL PRIVATE (m, i, j, k, e_s, q_s, resistance)
+       !$OMP DO SCHEDULE (STATIC)
        DO  m = 1, surf%ns
 
@@ -2474 +2486 @@
                      
        ENDDO
+       !$OMP END PARALLEL
   
     END SUBROUTINE calc_q_surface
@@ -5253 +5266 @@
        ENDIF
 
+       !$OMP PARALLEL PRIVATE (m, k, lambda_temp, lambda_h_sat, ke, tend, gamma_temp, h_vg, m_total)
+       !$OMP DO SCHEDULE (STATIC)
        DO  m = 1, surf%ns
 
@@ -5525 +5540 @@
 
        ENDDO
+       !$OMP END PARALLEL
 
     END SUBROUTINE lsm_soil_model