Changeset 709 for palm/trunk/SOURCE/flow_statistics.f90
 Timestamp:
 Mar 30, 2011 9:31:40 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/flow_statistics.f90
r700 r709 4 4 ! Current revisions: 5 5 !  6 ! formatting adjustments 6 7 ! 7 8 ! Former revisions: … … 114 115 USE arrays_3d 115 116 USE cloud_parameters 117 USE control_parameters 116 118 USE cpulog 117 119 USE grid_variables … … 120 122 USE pegrid 121 123 USE statistics 122 USE control_parameters123 124 124 125 IMPLICIT NONE … … 738 739 ENDDO 739 740 ENDDO 740 ! for reasons of speed optimization the loop is splitted, to avoid ifelse 741 ! statements inside the loop 742 ! Fluxes which have been computed in part directly inside the advection routines 743 ! treated seperatly. 744 ! First treat the momentum fluxes 741 ! 742 ! For speed optimization fluxes which have been computed in part directly 743 ! inside the WS advection routines are treated seperatly 744 ! Momentum fluxes first: 745 745 IF ( .NOT. ws_scheme_mom ) THEN 746 746 !$OMP DO … … 771 771 DO i = nxl, nxr 772 772 DO j = nys, nyn 773 DO k = nzb_diff_s_inner(j,i)  1, nzt_diff 774 ! vertical heat flux 773 DO k = nzb_diff_s_inner(j,i)1, nzt_diff 774 ! 775 ! Vertical heat flux 775 776 sums_l(k,17,tn) = sums_l(k,17,tn) + 0.5 * & 776 777 ( pt(k,j,i)  hom(k,1,4,sr) + & … … 1221 1222 1222 1223 END SUBROUTINE flow_statistics 1223 1224 1225
Note: See TracChangeset
for help on using the changeset viewer.