Ignore:
Timestamp:
Feb 27, 2009 11:42:39 AM (13 years ago)
Author:
raasch
Message:

further changes for dvrp clipping

File:
1 edited

Legend:

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

    r226 r246  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Clipping implemented
    77!
    88! Former revisions:
     
    1919
    2020    USE control_parameters
     21    USE dvrp_variables
    2122    USE indices
    2223    USE pegrid
     
    2930    INTEGER ::  i, j, k
    3031
    31     REAL, DIMENSION(nxl:nxr+1,nys:nyn+1,nzb:nz_do3d) ::  local_pf
     32    REAL, DIMENSION(nxl_dvrp:nxr_dvrp+1,nys_dvrp:nyn_dvrp+1,nzb:nz_do3d) ::  &
     33                                                                       local_pf
    3234
    3335!
     
    4244!!--       Here the user can add user_defined output quantities.
    4345!!--       Uncomment and extend the following lines, if necessary.
    44 !          DO  i = nxl, nxr+1
    45 !             DO  j = nys, nyn+1
     46!          DO  i = nxl_dvrp, nxr_dvrp+1
     47!             DO  j = nys_dvrp, nyn_dvrp+1
    4648!                DO  k = nzb, nz_do3d
    4749!                   local_pf(i,j,k) = u2(k,j,i)
Note: See TracChangeset for help on using the changeset viewer.