Ignore:
Timestamp:
Mar 10, 2016 11:01:04 AM (6 years ago)
Author:
maronga
Message:

added support for water and paved surfaced in land surface model / minor changes

File:
1 edited

Legend:

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

    r1784 r1788  
    1919! Current revisions:
    2020! -----------------
     21! Added output of z0q
    2122!
    22 !
    2323! Former revisions:
    2424! -----------------
     
    129129    USE arrays_3d,                                                             &
    130130        ONLY:  dzw, e, nr, ol, p, pt, q, qc, ql, ql_c, ql_v, ql_vp, qr, qsws,  &
    131                rho, sa, shf, tend, ts, u, us, v, vpt, w, z0, z0h, zu, zw
     131               rho, sa, shf, tend, ts, u, us, v, vpt, w, z0, z0h, z0q, zu, zw
    132132       
    133133    USE averaging
     
    12471247                      DO  j = nysg, nyng
    12481248                         local_pf(i,j,nzb+1) =  z0h_av(j,i)
     1249                      ENDDO
     1250                   ENDDO
     1251                ENDIF
     1252                resorted = .TRUE.
     1253                two_d = .TRUE.
     1254                level_z(nzb+1) = zu(nzb+1)
     1255
     1256             CASE ( 'z0q*_xy' )        ! 2d-array
     1257                IF ( av == 0 ) THEN
     1258                   DO  i = nxlg, nxrg
     1259                      DO  j = nysg, nyng
     1260                         local_pf(i,j,nzb+1) =  z0q(j,i)
     1261                      ENDDO
     1262                   ENDDO
     1263                ELSE
     1264                   DO  i = nxlg, nxrg
     1265                      DO  j = nysg, nyng
     1266                         local_pf(i,j,nzb+1) =  z0q_av(j,i)
    12491267                      ENDDO
    12501268                   ENDDO
Note: See TracChangeset for help on using the changeset viewer.