Changeset 673 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jan 18, 2011 4:19:48 PM (13 years ago)

Author:

suehring

Message:

Right computation of the pressure using Runge-Kutta weighting coefficients. Consideration of the pressure gradient during the time integration removed. Removed bugfix concerning velocity variances.

File:

• palm/trunk/SOURCE/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Current revisions:
 ! -----------------
-!
+! +weight_pres to weight the respective contribution of the Runge-Kutta 
+! substeps. +p_sub to buffer the intermediate contributions for Multigrid and 
+! SOR.
 ! Former revisions:
 ! -----------------
@@ -252 +254 @@
     REAL, DIMENSION(:,:,:), ALLOCATABLE ::                                     &
           canopy_heat_flux, cdc, d, diss, lad_s, lad_u, lad_v, lad_w, lai,     &
-          l_wall, sec, sls, tend, u_m_l, u_m_n, u_m_r, u_m_s, v_m_l, v_m_n,    &
-          v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s
+          l_wall, p_sub, sec, sls, tend, u_m_l, u_m_n, u_m_r, u_m_s, v_m_l,    &
+          v_m_n, v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s
 
     REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET ::                             &
@@ -1382 +1384 @@
     REAL ::     u_max, v_max, w_max
     REAL, DIMENSION(:), ALLOCATABLE       ::  sums_divnew_l, sums_divold_l, &
-                                              weight_substep
+                                              weight_substep, weight_pres
     REAL, DIMENSION(:,:), ALLOCATABLE     ::  sums, sums_wsts_bc_l,        &
                                               sums_wsus_ws_l, sums_wsvs_ws_l,&