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

Timestamp:

Mar 20, 2007 8:33:14 AM (17 years ago)

Author:

raasch

Message:

preliminary changes for radiation conditions

File:

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

palm/trunk/SOURCE/modules.f90

@@ -6 +6 @@
 ! -----------------
 ! +arrays precipitation_amount, precipitation_rate, precipitation_rate_av,
-! rif_wall, z0_av
+! rif_wall, z0_av, +arrays u_m_l, u_m_r, etc. for radiation boundary conditions,
 ! +loop_optimization, netcdf_64bit_3d, zu_s_inner, zw_w_inner, id_var_zusi_*,
 ! id_var_zwwi_*, ts_value, u_nzb_p1_for_vfc, v_nzb_p1_for_vfc, pt_reference,
@@ -111 +111 @@
           vpt, vpt_m, w, w_m, w_p
 
-    REAL, DIMENSION(:,:,:,:), ALLOCATABLE ::  rif_wall
+    REAL, DIMENSION(:,:,:,:), ALLOCATABLE ::  rif_wall, 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