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

Timestamp:

Nov 20, 2007 9:46:11 AM (16 years ago)

Author:

letzel

Message:

Vertical profiles now based on nzb_s_inner; they are divided by
ngp_2dh_s_inner (scalars, procucts of scalars and velocity components) and
ngp_2dh (staggered velocity components and their products), respectively.

Allow new case bc_uv_t = 'dirichlet_0' for channel flow.

File:

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

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
-! +dt_sort_particles, time_sort_particles, flags, wall_flags_1..10
-! wall_humidityflux(0:4), wall_qflux(0:4), wall_salinityflux(0:4), 
-! wall_scalarflux(0:4)
+! +dt_sort_particles, ngp_2dh_s_inner, time_sort_particles, flags, 
+! wall_flags_1..10, wall_humidityflux(0:4), wall_qflux(0:4), 
+! wall_salinityflux(0:4), wall_scalarflux(0:4)
 !
 ! Former revisions:
@@ -588 +588 @@
 
     INTEGER, DIMENSION(:,:), ALLOCATABLE ::                                    &
-                ngp_2dh_outer, mg_loc_ind, nzb_diff_s_inner, nzb_diff_s_outer, &
-                nzb_diff_u, nzb_diff_v, nzb_inner, nzb_outer, nzb_s_inner,     &
-                nzb_s_outer, nzb_u_inner, nzb_u_outer, nzb_v_inner,            &
-                nzb_v_outer, nzb_w_inner, nzb_w_outer, nzb_2d
+                ngp_2dh_outer, ngp_2dh_s_inner, mg_loc_ind, nzb_diff_s_inner,  &
+                nzb_diff_s_outer, nzb_diff_u, nzb_diff_v, nzb_inner, nzb_outer,&
+                nzb_s_inner, nzb_s_outer, nzb_u_inner, nzb_u_outer,            &
+                nzb_v_inner, nzb_v_outer, nzb_w_inner, nzb_w_outer, nzb_2d
 
     INTEGER, DIMENSION(:,:,:), POINTER ::  flags