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

Timestamp:

Jun 4, 2007 8:07:41 AM (17 years ago)

Author:

raasch

Message:

more preliminary uncomplete changes for ocean version

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Averaging of density and salinity
 !
 ! Former revisions:
@@ -166 +166 @@
              ENDDO
              
+          CASE ( 'rho' )
+             DO  i = nxl-1, nxr+1
+                DO  j = nys-1, nyn+1
+                   DO  k = nzb, nzt+1
+                      rho_av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d )
+                   ENDDO
+                ENDDO
+             ENDDO
+             
           CASE ( 's' )
              DO  i = nxl-1, nxr+1
@@ -171 +180 @@
                    DO  k = nzb, nzt+1
                       s_av(k,j,i) = s_av(k,j,i) / REAL( average_count_3d )
+                   ENDDO
+                ENDDO
+             ENDDO
+             
+          CASE ( 'sa' )
+             DO  i = nxl-1, nxr+1
+                DO  j = nys-1, nyn+1
+                   DO  k = nzb, nzt+1
+                      sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d )
                    ENDDO
                 ENDDO