Changeset 668 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Dec 23, 2010 1:22:58 PM (14 years ago)

Author:

suehring

Message:

last commit documented

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (1 diff)

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! -----------------
+!
+! Former revisions:
+! -----------------
+! $Id$
+!
+! 667 2010-12-23 12:06:00Z suehring/gryschka
 ! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng in loops and 
 ! allocation of arrays. Calls of exchange_horiz are modified.
 ! Call ws_init to initialize arrays needed for statistical evaluation and 
 ! optimization when ws-scheme is used.
-!
-! 
 ! Initial volume flow is now calculated by using the variable hom_sum.
 ! Therefore the correction of initial volume flow for non-flat topography
 ! removed (removed u_nzb_p1_for_vfc and v_nzb_p1_for_vfc) 
-!
 ! Changed surface boundary conditions for u and v in case of ibc_uv_b == 0 from
 ! mirror bc to dirichlet boundary conditions (u=v=0), so that k=nzb is 
 ! representative for the height z0 
-!
 ! Bugfix: type conversion of '1' to 64bit for the MAX function (ngp_3d_inner) 
-!
-! Former revisions:
-! -----------------
-! $Id$
 !
 ! 622 2010-12-10 08:08:13Z raasch