Changeset 343 for palm/trunk/SOURCE/user_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/user_data_output_2d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/user_data_output_2d.f90

@@ -1 @@
- SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf )
+ SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d )
 
 !------------------------------------------------------------------------------!
@@ -29 +29 @@
     INTEGER ::  av, i, j, k
 
-    LOGICAL ::  found
+    LOGICAL ::  found, two_d
 
     REAL, DIMENSION(nxl-1:nxr+1,nys-1:nyn+1,nzb:nzt+1) ::  local_pf
@@ -64 +64 @@
 !          grid = 'zu'
 
+
        CASE DEFAULT
           found = .FALSE.