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

Timestamp:

Feb 13, 2007 11:30:58 AM (17 years ago)

Author:

raasch

Message:

RCS Log replace by Id keyword, revision history cleaned up

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -11 +11 @@
 ! Former revisions:
 ! -----------------
-! $Log: init_3d_model.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.49  2006/08/22 15:59:07  raasch
 ! No optimization of this file on the ibmy (Yonsei Univ.)
-!
-! Revision 1.48  2006/08/22 13:58:30  raasch
-! Initialisation of all tendency arrays (t.._m) needed for the Runge-Kutta
-! schemes
-!
-! Revision 1.47  2006/08/04 14:39:20  raasch
-! Allocation of diss, needed for calculating the sgs particle velocities
-!
-! Revision 1.46  2006/05/15 08:14:56  letzel
-! Initialize volume_flow_initial_l and volume_flow_area_l with 0.0
-!
-! Revision 1.45  2006/04/26 13:32:44  raasch
-! Provisional correction for Piacsek & Williams advection scheme: keep u and
-! v zero one layer below the topography (in case of set_1d-model_profiles).
-!
-! Revision 1.44  2006/04/26 12:22:09  raasch
-! sums_l and sums_l_l changed to three dimensions
-!
-! Revision 1.43  2006/02/23 12:29:11  raasch
-! Allocation and default setting of k index arrays nzb_2d and nzb_diff_2d
-! moved to routine init_grid, nanz_sums, nanz_2dh and nanz_3d renamed ngp_sums,
-! ngp_2dh and ngp_3d, respectively,
-! allocation and setting of ngp_2dh and ngp_3d moved from parin and init_pegrid
-! to here,
-! read_fields_from_prior_run renamed read_restart_data,
-! new grid point counters ngp_2dh_outer and ngp_3d_inner are calculated,
-! additional argument nzb_.._inner added to call of disturb_field
-! optional calculation of the initial volume flow through the right and north
-! boundary
-!
-! Revision 1.42  2005/06/26 19:55:01  raasch
-! ql is now a pointer, init_cloud_physics is called anyway
-!
-! Revision 1.41  2005/03/26 20:29:41  raasch
-! Arguments for non-cyclic boundary conditions added in call of routine
-! disturb_field, diffusivities km_damp_x and km_damp_y used within the outflow
-! damping layer are allocated and initialized, uvmean_outflow is allocated
-!
-! Revision 1.40  2004/04/30 11:59:05  raasch
-! Reading of restart data is moved to new routine read_3d_binary,
-! diffusion quantity arrays are allocated for previous timelevels only
-! in case of leapfrog scheme, enlarged transposition array d
-!
-! Revision 1.39  2004/01/30 10:27:20  raasch
-! Allocation and default setting of index arrays nzb_2d and nzb_diff_2d
-!
-! Revision 1.38  2004/01/28 15:09:56  raasch
-! Time levels for Runge-Kutta scheme initialized, setting of bt before
-! calling pres removed
-!
-! Revision 1.37  2003/10/29 08:54:05  raasch
-! Random numbers are initialized or random seed is read from file of
-! previous run, module random_function_mod is used, new binary version 2.2
-!
-! Revision 1.36  2003/08/01 08:25:08  raasch
-! Array sums is initialized (must be defined in the first call of pres),
-! call of init_cloud_physics moved before init_particles
-!
-! Revision 1.35  2003/04/09 11:50:50  raasch
-! In case of initialisation with constant profiles, the horizontal
-! velocities at k=0,1 are explicitly set to zero
-!
-! Revision 1.34  2003/03/16 09:39:39  raasch
-! Two underscores (_) are placed in front of all define-strings
-!
-! Revision 1.33  2002/12/19 15:32:42  raasch
-! Subroutine local_tremain_ini (initializing the remaining cpu-time)
-! moved to main program (palm), reading of array hom is moved to routine
-! read_var_list, STOP statement replaced by call of subroutine local_stop
-!
-! Revision 1.32  2002/05/02 18:51:11  raasch
-! Time level t+dt re-introduced and initialized
-!
-! Revision 1.31  2001/11/05  09:31:38  09:31:38  weinbrec (Sonja Weinbrecht)
-! Initialization of spectrum_x and spectrum_y for continuation runs
-! 
-! Revision 1.30  2001/03/30 07:25:25  raasch
-! Arguments removed from pres, arrays work and work1 removed,
-! initialization of timelevel t+dt removed,
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.29  2001/01/29 12:27:49  raasch
-! Passive scalar is considered
-!
-! Revision 1.28  2001/01/25 07:02:19  raasch
-! Initialization of surface fluxes changed due to new variable
-! use_surface_fluxes
-!
-! Revision 1.27  2001/01/05 15:12:23  raasch
-! Allocate spectrum_x and spectrum_y, new binary version 2.1
-!
-! Revision 1.26  2001/01/02 17:29:43  raasch
-! Unit 13 closed after reading binary input (after call of user_init, where
-! read from unit 13 may occur)
-!
-! Revision 1.25  2000/12/28 13:05:53  raasch
-! Init_particles is called unconditionally
-!
-! Revision 1.24  2000/04/27 07:05:19  raasch
-! Call of subroutine init_slope added to compute the initial temperature field
-! and other constants used in case of a sloping surface,
-! call of subroutine init_dvrp added to initialize dvrp-software,
-! old revision remarks deleted
-!
-! Revision 1.23  2000/04/13 13:22:09  schroeter
-! Allokieren und Initialisierung der Feuchtefelder und Wolkenphysikparameter
-!
-! Revision 1.22  2000/01/26  10:30:49  10:30:49  letzel (Marcus Letzel)
-! All comments translated into English
-! 
-! Revision 1.21  2000/01/10 09:54:10  raasch
-! Trennung der zeitabhaengigen Variablen in pointer und targets,
-! Anfangszuordnung der pointer
-!
-! Revision 1.17  1999/03/03 07:22:35  raasch
-! Beim binaeren Einlesen werden alle Variablen mit exakter Laenge von Datei
-! gelesen, da sich bei schneller I/O Records nicht einfach ueberspringen lassen
-!
-! Revision 1.14  1998/12/15 07:33:50  raasch
-! Zusaetzliche Ermittelung der tatsaechlichen Einlesezeiten auf T3E
-! mit messpunkt_e(14) unter Verwendung von TIMEF (s. cpu_zeitmessung)
 !
 ! Revision 1.1  1998/03/09 16:22:22  raasch