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

    r277 r354  
    521521                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
    522522
     523                CASE ( 'qsws_av' )
     524                   IF ( .NOT. ALLOCATED( qsws_av ) )  THEN
     525                      ALLOCATE( qsws_av(nys-1:nyn+1,nxl-1:nxr+1) )
     526                   ENDIF 
     527                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     528                   qsws_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
     529                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
     530
    523531                CASE ( 'qswst' )
    524532                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     
    610618                   shf_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
    611619                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
    612 
     620                CASE ( 'shf_av' )
     621                   IF ( .NOT. ALLOCATED( shf_av ) )  THEN
     622                      ALLOCATE( shf_av(nys-1:nyn+1,nxl-1:nxr+1) )
     623                   ENDIF
     624                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     625                   shf_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
     626                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
    613627                CASE ( 'spectrum_x' )
    614628                   IF ( k == 1 )  THEN
Note: See TracChangeset for help on using the changeset viewer.