Changeset 137 for palm


Ignore:
Timestamp:
Nov 28, 2007 8:50:10 AM (17 years ago)
Author:
letzel
Message:

Bugfix: summation of sums_l_l in diffusivities.

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r135 r137  
    5151------
    5252
     53Bugfix: summation of sums_l_l in diffusivities.
     54
    5355Several bugfixes in the ocean part: Initial density rho is calculated
    5456(init_ocean). Error in initializing u_init and v_init removed
     
    6769Bugfix: absolute value of f must be used when calculating the Blackadar mixing length (init_1d_model)
    6870
    69 advec_particles, check_parameters, combine_plot_fields, diffusion_s, init_ocean, init_1d_model, poisfft, production_e
     71advec_particles, check_parameters, combine_plot_fields, diffusion_s, diffusivities, init_ocean, init_1d_model, poisfft, production_e
  • palm/trunk/SOURCE/diffusivities.f90

    r132 r137  
    44! Actual revisions:
    55! -----------------
     6! Bugfix for summation of sums_l_l for flow_statistics
    67! Vertical scalar profiles now based on nzb_s_inner and ngp_2dh_s_inner.
    78!
     
    140141!
    141142!--       Summation for averaged profile (cf. flow_statistics)
     143!--       (the IF statement still requires a performance check on NEC machines)
    142144          DO  sr = 0, statistic_regions
    143              IF ( rmask(j,i,sr) /= 0.0 )  THEN
     145             IF ( rmask(j,i,sr) /= 0.0 .AND.  &
     146                  i >= nxl .AND. i <= nxr .AND. j >= nys .AND. j <= nyn )  THEN
    144147                DO  k = nzb_s_inner(j,i)+1, nzt
    145148                   sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l(k)
Note: See TracChangeset for help on using the changeset viewer.