Changeset 978 for palm/trunk/SOURCE/sum_up_3d_data.f90

Timestamp:

Aug 9, 2012 8:28:32 AM (12 years ago)

Author:

fricke

Message:

merge fricke branch back into trunk

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/sum_up_3d_data.f90 (modified) (3 diffs)

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! +z0h*
 !
 ! Former revisions:
@@ -227 +227 @@
                 ENDIF
                 z0_av = 0.0
+
+             CASE ( 'z0h*' )
+                IF ( .NOT. ALLOCATED( z0h_av ) )  THEN
+                   ALLOCATE( z0h_av(nysg:nyng,nxlg:nxrg) )
+                ENDIF
+                z0h_av = 0.0
 
              CASE DEFAULT
@@ -494 +500 @@
              ENDDO
 
+          CASE ( 'z0h*' )
+             DO  i = nxlg, nxrg
+                DO  j = nysg, nyng
+                   z0h_av(j,i) = z0h_av(j,i) + z0h(j,i)
+                ENDDO
+             ENDDO
+
           CASE DEFAULT
 !