Changeset 102 for palm/trunk/SOURCE/flow_statistics.f90
 Timestamp:
 Jul 27, 2007 9:09:17 AM (14 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/flow_statistics.f90
r98 r102 4 4 ! Actual revisions: 5 5 !  6 ! 6 ! Prescribed momentum fluxes at the top surface are used 7 7 ! 8 8 ! Former revisions: … … 381 381 !  strictly speaking the following kloop would have to be 382 382 ! split up according to the staggered grid. 383 DO k = nzb_diff_s_outer(j,i)1, nzt 383 DO k = nzb_diff_s_outer(j,i)1, nzt_diff 384 384 ! 385 385 ! Momentum flux w"u" … … 398 398 + ( w(k,j,i)  w(k,j1,i) ) * ddy & 399 399 ) * rmask(j,i,sr) 400 ENDDO401 402 DO k = nzb_diff_s_outer(j,i)1, nzt_diff403 400 ! 404 401 ! Heat flux w"pt" … … 490 487 ! Subgridscale fluxes at the top surface 491 488 IF ( use_top_fluxes ) THEN 489 sums_l(nzt,12,tn) = sums_l(nzt,12,tn) + & 490 uswst(j,i) * rmask(j,i,sr) ! w"u" 491 sums_l(nzt,14,tn) = sums_l(nzt,14,tn) + & 492 vswst(j,i) * rmask(j,i,sr) ! w"v" 492 493 sums_l(nzt,16,tn) = sums_l(nzt,16,tn) + & 493 494 tswst(j,i) * rmask(j,i,sr) ! w"pt"
Note: See TracChangeset
for help on using the changeset viewer.