Changeset 719


Ignore:
Timestamp:
Apr 6, 2011 1:05:23 PM (11 years ago)
Author:
gryschka
Message:

Bugfix in volume flow control for double cyclic boundary conditions

File:
1 edited

Legend:

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

    r710 r719  
    55! -----------------
    66!
     7! gryschka
     8! Bugfix in volume flow control for double cyclic boundary conditions
    79!
    810! Former revisions:
     
    644646             DO  k = nzb_u_inner(j,i) + 1, nzt
    645647                u(k,j,i) = u(k,j,i) + volume_flow_offset(1)
     648             ENDDO
     649             DO k = nzb_v_inner(j,i) + 1, nzt
    646650                v(k,j,i) = v(k,j,i) + volume_flow_offset(2)
    647651             ENDDO
Note: See TracChangeset for help on using the changeset viewer.