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

Timestamp:

Mar 19, 2007 8:20:46 AM (18 years ago)

Author:

raasch

Message:

preliminary changes for precipitation output

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Averaging the precipitation rate and roughness length (prr*, z0*)
 !
 ! Former revisions:
@@ -90 +90 @@
              ENDDO
 
+          CASE ( 'prr*' )
+             DO  i = nxl-1, nxr+1
+                DO  j = nys-1, nyn+1
+                   precipitation_rate_av(j,i) = precipitation_rate_av(j,i) / &
+                                                REAL( average_count_3d )
+                ENDDO
+             ENDDO
+
           CASE ( 'pt' )
              DO  i = nxl-1, nxr+1
@@ -213 +221 @@
              ENDDO
 
+          CASE ( 'z0*' )
+             DO  i = nxl-1, nxr+1
+                DO  j = nys-1, nyn+1
+                   z0_av(j,i) = z0_av(j,i) / REAL( average_count_3d )
+                ENDDO
+             ENDDO
+
           CASE DEFAULT
 !