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

Timestamp:

Aug 16, 2007 2:30:26 PM (17 years ago)

Author:

raasch

Message:

preliminary update of bugfixes and extensions for non-cyclic BCs

File:

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

palm/trunk/SOURCE/modules.f90

@@ -6 +6 @@
 ! -----------------
 ! +comm_inter, constant_top_momentumflux, coupling_char, coupling_mode,
-! dt_coupling, ngp_xy, port_name, time_coupling, top_momentumflux_u|v,
-! type_xy, uswst*, vswst*
+! c_u, c_v, c_w, dt_coupling, ngp_xy, nxlu, nysv, port_name, time_coupling,
+! top_momentumflux_u|v, type_xy, uswst*, vswst*
 !
 ! Former revisions:
@@ -105 +105 @@
 
     REAL, DIMENSION(:,:), ALLOCATABLE ::                                       &
-          dzu_mg, dzw_mg, f1_mg, f2_mg, f3_mg, pt_slope_ref, qs, ts, us, z0
+          c_u, c_v, c_w, dzu_mg, dzw_mg, f1_mg, f2_mg, f3_mg, pt_slope_ref,    &
+          qs, ts, us, z0
 
     REAL, DIMENSION(:,:), ALLOCATABLE, TARGET ::                               &
@@ -565 +566 @@
 !------------------------------------------------------------------------------!
 
-    INTEGER ::  ngp_sums, nnx, nx = 0, nxa, nxl, nxr, nxra, nny, ny = 0, nya,  &
-                nyn, nyna, nys, nnz, nz = 0, nza, nzb, nzb_diff, nzt, nzta,    &
-                nzt_diff
+    INTEGER ::  ngp_sums, nnx, nx = 0, nxa, nxl, nxlu, nxr, nxra, nny, ny = 0, &
+                nya, nyn, nyna, nys, nysv, nnz, nz = 0, nza, nzb, nzb_diff,    &
+                nzt, nzta, nzt_diff
 
     INTEGER, DIMENSION(:), ALLOCATABLE ::                                      &