Changeset 137 for palm/trunk/SOURCE
 Timestamp:
 Nov 28, 2007 8:50:10 AM (15 years ago)
 Location:
 palm/trunk/SOURCE
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/CURRENT_MODIFICATIONS
r135 r137 51 51  52 52 53 Bugfix: summation of sums_l_l in diffusivities. 54 53 55 Several bugfixes in the ocean part: Initial density rho is calculated 54 56 (init_ocean). Error in initializing u_init and v_init removed … … 67 69 Bugfix: absolute value of f must be used when calculating the Blackadar mixing length (init_1d_model) 68 70 69 advec_particles, check_parameters, combine_plot_fields, diffusion_s, init_ocean, init_1d_model, poisfft, production_e71 advec_particles, check_parameters, combine_plot_fields, diffusion_s, diffusivities, init_ocean, init_1d_model, poisfft, production_e 
palm/trunk/SOURCE/diffusivities.f90
r132 r137 4 4 ! Actual revisions: 5 5 !  6 ! Bugfix for summation of sums_l_l for flow_statistics 6 7 ! Vertical scalar profiles now based on nzb_s_inner and ngp_2dh_s_inner. 7 8 ! … … 140 141 ! 141 142 ! Summation for averaged profile (cf. flow_statistics) 143 ! (the IF statement still requires a performance check on NEC machines) 142 144 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 144 147 DO k = nzb_s_inner(j,i)+1, nzt 145 148 sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l(k)
Note: See TracChangeset
for help on using the changeset viewer.