Ignore:
Timestamp:
Jan 12, 2009 4:04:16 PM (13 years ago)
Author:
letzel
Message:
  • Bugfixes for nonparallel execution
File:
1 edited

Legend:

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

    r198 r222  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix for nonparallel execution
    77!
    88! Former revisions:
     
    9292    i = recycling_plane
    9393
     94#if defined( __parallel )
    9495    IF ( myidx == id_recycling )  THEN
    9596
     
    107108
    108109    ENDIF
     110#else
     111    DO  j = nys-1, nyn+1
     112       DO  k = nzb, nzt+1
     113
     114          inflow_dist(k,j,1) = u(k,j,i+1) - avpr(k,1)
     115          inflow_dist(k,j,2) = v(k,j,i)   - avpr(k,2)
     116          inflow_dist(k,j,3) = w(k,j,i)   - avpr(k,3)
     117          inflow_dist(k,j,4) = pt(k,j,i)  - avpr(k,4)
     118          inflow_dist(k,j,5) = e(k,j,i)   - avpr(k,5)
     119
     120       ENDDO
     121    ENDDO
     122#endif
    109123
    110124!
Note: See TracChangeset for help on using the changeset viewer.