Changeset 367 for palm/trunk/SOURCE/average_3d_data.f90

Timestamp:

Aug 25, 2009 8:35:52 AM (15 years ago)

Author:

maronga

Message:

adapted for machine lck

File:

• palm/trunk/SOURCE/average_3d_data.f90 (modified) (7 diffs)

palm/trunk/SOURCE/average_3d_data.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Added calculation of shf* and qsws*
 !
 ! Former revisions:
@@ -129 +129 @@
                 ENDDO
              ENDDO
-             
+
           CASE ( 'ql' )
              DO  i = nxl-1, nxr+1
@@ -175 +175 @@
                 ENDDO
              ENDDO
-          
+
           CASE ( 'rho' )
              DO  i = nxl-1, nxr+1
@@ -184 +184 @@
                 ENDDO
              ENDDO
-             
+
           CASE ( 's' )
              DO  i = nxl-1, nxr+1
@@ -193 +193 @@
                 ENDDO
              ENDDO
-             
+
           CASE ( 'sa' )
              DO  i = nxl-1, nxr+1
@@ -202 +202 @@
                 ENDDO
              ENDDO
-             
+
          CASE ( 'shf*' )
              DO  i = nxl-1, nxr+1
@@ -209 +209 @@
                 ENDDO
              ENDDO
-             
+
           CASE ( 't*' )
              DO  i = nxl-1, nxr+1