Changeset 709 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Mar 30, 2011 9:31:40 AM (13 years ago)

Author:

raasch

Message:

formatting adjustments

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (6 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! formatting adjustments
 !
 ! Former revisions:
@@ -114 +115 @@
     USE arrays_3d
     USE cloud_parameters
+    USE control_parameters
     USE cpulog
     USE grid_variables
@@ -120 +122 @@
     USE pegrid
     USE statistics
-    USE control_parameters
 
     IMPLICIT NONE
@@ -738 +739 @@
           ENDDO
        ENDDO
-!-     for reasons of speed optimization the loop is splitted, to avoid if-else
-!-     statements inside the loop
-!-     Fluxes which have been computed in part directly inside the advection routines
-!-     treated seperatly.
-!-     First treat the momentum fluxes
+!
+!--    For speed optimization fluxes which have been computed in part directly
+!--    inside the WS advection routines are treated seperatly
+!--    Momentum fluxes first:
        IF ( .NOT. ws_scheme_mom )  THEN
          !$OMP DO
@@ -771 +771 @@
          DO  i = nxl, nxr
             DO  j = nys, nyn
-               DO  k = nzb_diff_s_inner(j,i) - 1, nzt_diff
-!-                vertical heat flux
+               DO  k = nzb_diff_s_inner(j,i)-1, nzt_diff
+!
+!--               Vertical heat flux
                   sums_l(k,17,tn) = sums_l(k,17,tn) +  0.5 * &
                            ( pt(k,j,i)   - hom(k,1,4,sr) + &
@@ -1221 +1222 @@
 
  END SUBROUTINE flow_statistics
-
-
-