Ignore:
Timestamp:
Jun 4, 2007 8:07:41 AM (14 years ago)
Author:
raasch
Message:

more preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/average_3d_data.f90

    r77 r96  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Averaging of density and salinity
    77!
    88! Former revisions:
     
    166166             ENDDO
    167167             
     168          CASE ( 'rho' )
     169             DO  i = nxl-1, nxr+1
     170                DO  j = nys-1, nyn+1
     171                   DO  k = nzb, nzt+1
     172                      rho_av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d )
     173                   ENDDO
     174                ENDDO
     175             ENDDO
     176             
    168177          CASE ( 's' )
    169178             DO  i = nxl-1, nxr+1
     
    171180                   DO  k = nzb, nzt+1
    172181                      s_av(k,j,i) = s_av(k,j,i) / REAL( average_count_3d )
     182                   ENDDO
     183                ENDDO
     184             ENDDO
     185             
     186          CASE ( 'sa' )
     187             DO  i = nxl-1, nxr+1
     188                DO  j = nys-1, nyn+1
     189                   DO  k = nzb, nzt+1
     190                      sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d )
    173191                   ENDDO
    174192                ENDDO
Note: See TracChangeset for help on using the changeset viewer.