Changeset 121 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Oct 18, 2007 7:24:23 PM (17 years ago)

Author:

raasch

Message:

Bugfix in calculation of u_init and v_init for ocean runs

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -5 +5 @@
 ! -----------------
 ! Multigrid solver allows topography, checking of dt_sort_particles
+! Bugfix: initializing u_init and v_init in case of ocean runs
 !
 ! Former revisions:
@@ -643 +644 @@
 
           ug_vertical_gradient_level_ind(1) = nzt+1
+          ug(nzt+1) = ug_surface
           DO  k = nzt, 0, -1
              IF ( ug_vertical_gradient_level(i) > zu(k)  .AND. &
@@ -717 +719 @@
        ELSE
 
-          vg_vertical_gradient_level_ind(1) = 0
+          vg_vertical_gradient_level_ind(1) = nzt+1
+          vg(nzt+1) = vg_surface
           DO  k = nzt, 0, -1
              IF ( vg_vertical_gradient_level(i) > zu(k)  .AND. &