Changeset 121


Ignore:
Timestamp:
Oct 18, 2007 7:24:23 PM (16 years ago)
Author:
raasch
Message:

Bugfix in calculation of u_init and v_init for ocean runs

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r120 r121  
    3030Bugfix: model_string needed a default value (combine_plot_fields)
    3131
    32 advec_particles, combine_plot_fields
     32Bugfix: initializing u_init and v_init in case of ocean runs (check_parameters)
     33
     34advec_particles, check_parameters, combine_plot_fields
  • palm/trunk/SOURCE/check_parameters.f90

    r116 r121  
    55! -----------------
    66! Multigrid solver allows topography, checking of dt_sort_particles
     7! Bugfix: initializing u_init and v_init in case of ocean runs
    78!
    89! Former revisions:
     
    643644
    644645          ug_vertical_gradient_level_ind(1) = nzt+1
     646          ug(nzt+1) = ug_surface
    645647          DO  k = nzt, 0, -1
    646648             IF ( ug_vertical_gradient_level(i) > zu(k)  .AND. &
     
    717719       ELSE
    718720
    719           vg_vertical_gradient_level_ind(1) = 0
     721          vg_vertical_gradient_level_ind(1) = nzt+1
     722          vg(nzt+1) = vg_surface
    720723          DO  k = nzt, 0, -1
    721724             IF ( vg_vertical_gradient_level(i) > zu(k)  .AND. &
Note: See TracChangeset for help on using the changeset viewer.