Changeset 121

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

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -30 +30 @@
 Bugfix: model_string needed a default value (combine_plot_fields)
 
-advec_particles, combine_plot_fields
+Bugfix: initializing u_init and v_init in case of ocean runs (check_parameters)
+
+advec_particles, check_parameters, combine_plot_fields

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. &