Ignore:
Timestamp:
Jun 24, 2009 12:59:09 PM (12 years ago)
Author:
maronga
Message:

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

File:
1 edited

Legend:

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

    r226 r343  
    1  SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf )
     1 SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d )
    22
    33!------------------------------------------------------------------------------!
     
    2929    INTEGER ::  av, i, j, k
    3030
    31     LOGICAL ::  found
     31    LOGICAL ::  found, two_d
    3232
    3333    REAL, DIMENSION(nxl-1:nxr+1,nys-1:nyn+1,nzb:nzt+1) ::  local_pf
     
    6464!          grid = 'zu'
    6565
     66
    6667       CASE DEFAULT
    6768          found = .FALSE.
Note: See TracChangeset for help on using the changeset viewer.