Changeset 135 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 22, 2007 12:24:23 PM (16 years ago)
Author:
raasch
Message:

bug concerning mixing length calculation in case of negative f removed; inconsistencies concerning variable grid removed

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r134 r135  
    6565Bugfix: assignment of fluxes at walls
    6666
    67 advec_particles, check_parameters, combine_plot_fields, diffusion_s, init_ocean, poisfft, production_e
     67Bugfix: absolute value of f must be used when calculating the Blackadar mixing length (init_1d_model)
     68
     69advec_particles, check_parameters, combine_plot_fields, diffusion_s, init_ocean, init_1d_model, poisfft, production_e
  • palm/trunk/SOURCE/init_1d_model.f90

    r83 r135  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: absolute value of f must be used when calculating the Blackadar
     7! mixing length!
    78!
    89! Former revisions:
     
    7677!--       Blackadar mixing length
    7778          IF ( f /= 0.0 )  THEN
    78              lambda = 2.7E-4 * SQRT( ug(nzt+1)**2 + vg(nzt+1)**2 ) / f + 1E-10
     79             lambda = 2.7E-4 * SQRT( ug(nzt+1)**2 + vg(nzt+1)**2 ) / &
     80                               ABS( f ) + 1E-10
    7981          ELSE
    8082             lambda = 30.0
  • palm/trunk/SOURCE/user_interface.f90

    r130 r135  
    946946!          ENDIF
    947947!
    948 !          grid = 'zu'
    949948
    950949       CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.