Ignore:
Timestamp:
Mar 19, 2007 8:20:46 AM (15 years ago)
Author:
raasch
Message:

preliminary changes for precipitation output

File:
1 edited

Legend:

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

    r4 r72  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Averaging the precipitation rate and roughness length (prr*, z0*)
    77!
    88! Former revisions:
     
    9090             ENDDO
    9191
     92          CASE ( 'prr*' )
     93             DO  i = nxl-1, nxr+1
     94                DO  j = nys-1, nyn+1
     95                   precipitation_rate_av(j,i) = precipitation_rate_av(j,i) / &
     96                                                REAL( average_count_3d )
     97                ENDDO
     98             ENDDO
     99
    92100          CASE ( 'pt' )
    93101             DO  i = nxl-1, nxr+1
     
    213221             ENDDO
    214222
     223          CASE ( 'z0*' )
     224             DO  i = nxl-1, nxr+1
     225                DO  j = nys-1, nyn+1
     226                   z0_av(j,i) = z0_av(j,i) / REAL( average_count_3d )
     227                ENDDO
     228             ENDDO
     229
    215230          CASE DEFAULT
    216231!
Note: See TracChangeset for help on using the changeset viewer.