Ignore:
Timestamp:
Jul 13, 2009 1:14:25 PM (12 years ago)
Author:
maronga
Message:

xy cross section output of sensible and latent heatflux is now available

File:
1 edited

Legend:

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

    r98 r354  
    6363             ENDDO
    6464
     65          CASE ( 'qsws*' )
     66             DO  i = nxl-1, nxr+1
     67                DO  j = nys-1, nyn+1
     68                   qsws_av(j,i) = qsws_av(j,i) / REAL( average_count_3d )
     69                ENDDO
     70             ENDDO
     71
    6572          CASE ( 'lwp*' )
    6673             DO  i = nxl-1, nxr+1
     
    168175                ENDDO
    169176             ENDDO
    170              
     177         
    171178          CASE ( 'rho' )
    172179             DO  i = nxl-1, nxr+1
     
    193200                      sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d )
    194201                   ENDDO
     202                ENDDO
     203             ENDDO
     204             
     205         CASE ( 'shf*' )
     206             DO  i = nxl-1, nxr+1
     207                DO  j = nys-1, nyn+1
     208                   shf_av(j,i) = shf_av(j,i) / REAL( average_count_3d )
    195209                ENDDO
    196210             ENDDO
Note: See TracChangeset for help on using the changeset viewer.