Ignore:
Timestamp:
Feb 23, 2007 4:53:48 AM (15 years ago)
Author:
raasch
Message:

preliminary version of modified boundary conditions at top

File:
1 edited

Legend:

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

    r4 r19  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Calculation extended for gridpoint nzt
    77!
    88! Former revisions:
     
    4747    DO  i = nxl, nxr
    4848       DO  j = nys, nyn
    49           DO  k = nzb+1, nzt-1
     49          DO  k = nzb+1, nzt
    5050             x = ( i - ic ) * dx
    5151             y = ( j - jc ) * dy
Note: See TracChangeset for help on using the changeset viewer.