Changeset 1788 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Mar 10, 2016 11:01:04 AM (8 years ago)

Author:

maronga

Message:

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

File:

• palm/trunk/SOURCE/data_output_2d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
+! Added output of z0q
 ! 
-!
 ! Former revisions:
 ! -----------------
@@ -129 +129 @@
     USE arrays_3d,                                                             &
         ONLY:  dzw, e, nr, ol, p, pt, q, qc, ql, ql_c, ql_v, ql_vp, qr, qsws,  &
-               rho, sa, shf, tend, ts, u, us, v, vpt, w, z0, z0h, zu, zw
+               rho, sa, shf, tend, ts, u, us, v, vpt, w, z0, z0h, z0q, zu, zw
         
     USE averaging
@@ -1247 +1247 @@
                       DO  j = nysg, nyng
                          local_pf(i,j,nzb+1) =  z0h_av(j,i)
+                      ENDDO
+                   ENDDO
+                ENDIF
+                resorted = .TRUE.
+                two_d = .TRUE.
+                level_z(nzb+1) = zu(nzb+1)
+
+             CASE ( 'z0q*_xy' )        ! 2d-array
+                IF ( av == 0 ) THEN
+                   DO  i = nxlg, nxrg
+                      DO  j = nysg, nyng
+                         local_pf(i,j,nzb+1) =  z0q(j,i)
+                      ENDDO
+                   ENDDO
+                ELSE
+                   DO  i = nxlg, nxrg
+                      DO  j = nysg, nyng
+                         local_pf(i,j,nzb+1) =  z0q_av(j,i)
                       ENDDO
                    ENDDO