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

    r343 r354  
    375375                IF ( mode == 'xy' )  level_z = zu
    376376
     377             CASE ( 'qsws*_xy' )        ! 2d-array
     378                IF ( av == 0 ) THEN
     379                   DO  i = nxl-1, nxr+1
     380                      DO  j = nys-1, nyn+1
     381                         local_pf(i,j,nzb+1) =  qsws(j,i)
     382                      ENDDO
     383                   ENDDO
     384                ELSE
     385                   DO  i = nxl-1, nxr+1
     386                      DO  j = nys-1, nyn+1
     387                         local_pf(i,j,nzb+1) =  qsws_av(j,i)
     388                      ENDDO
     389                   ENDDO
     390                ENDIF
     391                resorted = .TRUE.
     392                two_d = .TRUE.
     393                level_z(nzb+1) = zu(nzb+1)
     394
    377395             CASE ( 'qv_xy', 'qv_xz', 'qv_yz' )
    378396                IF ( av == 0 )  THEN
     
    410428                   to_be_resorted => sa_av
    411429                ENDIF
     430
     431             CASE ( 'shf*_xy' )        ! 2d-array
     432                IF ( av == 0 ) THEN
     433                   DO  i = nxl-1, nxr+1
     434                      DO  j = nys-1, nyn+1
     435                         local_pf(i,j,nzb+1) =  shf(j,i)
     436                      ENDDO
     437                   ENDDO
     438                ELSE
     439                   DO  i = nxl-1, nxr+1
     440                      DO  j = nys-1, nyn+1
     441                         local_pf(i,j,nzb+1) =  shf_av(j,i)
     442                      ENDDO
     443                   ENDDO
     444                ENDIF
     445                resorted = .TRUE.
     446                two_d = .TRUE.
     447                level_z(nzb+1) = zu(nzb+1)
    412448
    413449             CASE ( 't*_xy' )        ! 2d-array
Note: See TracChangeset for help on using the changeset viewer.