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/sum_up_3d_data.f90

    r98 r354  
    129129                ql_vp_av = 0.0
    130130
     131             CASE ( 'qsws*' )
     132                IF ( .NOT. ALLOCATED( qsws_av ) )  THEN
     133                   ALLOCATE( qsws_av(nys-1:nyn+1,nxl-1:nxr+1) )
     134                ENDIF
     135                qsws_av = 0.0
     136
    131137             CASE ( 'qv' )
    132138                IF ( .NOT. ALLOCATED( qv_av ) )  THEN
     
    152158                ENDIF
    153159                sa_av = 0.0
     160
     161             CASE ( 'shf*' )
     162                IF ( .NOT. ALLOCATED( shf_av ) )  THEN
     163                   ALLOCATE( shf_av(nys-1:nyn+1,nxl-1:nxr+1) )
     164                ENDIF
     165                shf_av = 0.0
    154166
    155167             CASE ( 't*' )
Note: See TracChangeset for help on using the changeset viewer.