Changeset 20 for palm/trunk/SOURCE/parin.f90

Timestamp:

Feb 26, 2007 12:12:32 AM (18 years ago)

Author:

raasch

Message:

new parameter use_top_fluxes, Bugfix: ddzw dimensioned 1:nzt+1

File:

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

palm/trunk/SOURCE/parin.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! +top_heatflux in inipar
+! +top_heatflux, use_top_fluxes in inipar
 !
 ! Former revisions:
@@ -74 +74 @@
                        ug_vertical_gradient, ug_vertical_gradient_level, &
                        ups_limit_e, ups_limit_pt, ups_limit_u, ups_limit_v, &
-                       ups_limit_w, use_surface_fluxes, use_ug_for_galilei_tr, &
-                       use_upstream_for_tke, vg_surface, vg_vertical_gradient, &
+                       ups_limit_w, use_surface_fluxes, use_top_fluxes, &
+                       use_ug_for_galilei_tr, use_upstream_for_tke, &
+                       vg_surface, vg_vertical_gradient, &
                        vg_vertical_gradient_level, wall_adjustment, &
                        wall_heatflux