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

Timestamp:

Jun 24, 2009 12:59:09 PM (15 years ago)

Author:

maronga

Message:

adjustments for lcxt4 and ibmy, allow user 2d xy cross section output at z=nzb+1

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -8 +8 @@
 ! Bugfix: averaging along z is not allowed for 2d quantities (e.g. u* and z0)
 ! Output of messages replaced by message handling routine.
+! Output of user defined 2D (XY) arrays at z=nzb+1 is now possible
 !
 !
@@ -512 +513 @@
 !--             User defined quantity
                 CALL user_data_output_2d( av, do2d(av,if), found, grid, &
-                                          local_pf )
+                                          local_pf, two_d )
                 resorted = .TRUE.
 
@@ -519 +520 @@
                 ELSEIF ( grid == 'zw' )  THEN
                    IF ( mode == 'xy' )  level_z = zw
+                ELSEIF ( grid == 'zu1' ) THEN
+                   IF ( mode == 'xy' )  level_z(nzb+1) = zu(nzb+1)
                 ENDIF