Changeset 1845 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Apr 8, 2016 8:29:13 AM (8 years ago)

Author:

raasch

Message:

nzb_2d replaced by nzb_..._inner, Kessler precipitation stored on surface grid point

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! nzb_2d removed
 ! 
 ! Former revisions:
@@ -180 +180 @@
         ONLY:  flags, nbgp, nx, nxl, nxlg, nxlu, nxl_mg, nxr, nxrg, nxr_mg,    &
                ny, nyn, nyng, nyn_mg, nys, nysv, nys_mg, nysg, nz, nzb,        &
-               nzb_2d, nzb_diff, nzb_diff_s_inner, nzb_diff_s_outer,           &
-               nzb_diff_u, nzb_diff_v, nzb_max, nzb_s_inner, nzb_s_outer,      &
-               nzb_u_inner, nzb_u_outer, nzb_v_inner, nzb_v_outer,             &
-               nzb_w_inner, nzb_w_outer, nzt, nzt_diff, nzt_mg, rflags_invers, &
+               nzb_diff, nzb_diff_s_inner, nzb_diff_s_outer, nzb_diff_u,       &
+               nzb_diff_v, nzb_max, nzb_s_inner, nzb_s_outer, nzb_u_inner,     &
+               nzb_u_outer, nzb_v_inner, nzb_v_outer, nzb_w_inner,             &
+               nzb_w_outer, nzt, nzt_diff, nzt_mg, rflags_invers,              &
                rflags_s_inner, wall_flags_0, wall_flags_00, wall_flags_1,      &
                wall_flags_10, wall_flags_2, wall_flags_3,  wall_flags_4,       &
@@ -470 +470 @@
               nzb_diff_u(nysg:nyng,nxlg:nxrg),                              &
               nzb_diff_v(nysg:nyng,nxlg:nxrg),                              &
-              nzb_2d(nysg:nyng,nxlg:nxrg),                                  &
               rflags_s_inner(nzb:nzt+2,nysg:nyng,nxlg:nxrg),                &
               rflags_invers(nysg:nyng,nxlg:nxrg,nzb:nzt+2),                 &
@@ -967 +966 @@
 
     ENDIF
-
-!
-!-- Preliminary: to be removed after completion of the topography code!
-!-- Set the former default k index arrays nzb_2d
-    nzb_2d      = nzb
 
 !