Changeset 1933 for palm/trunk/SOURCE/exchange_horiz.f90

Timestamp:

Jun 13, 2016 7:12:51 AM (8 years ago)

Author:

hellstea

Message:

last commit documented

File:

• palm/trunk/SOURCE/exchange_horiz.f90 (modified) (1 diff)

palm/trunk/SOURCE/exchange_horiz.f90

@@ -277 +277 @@
                 DO  k = nzb, nzt+1
                    ar(k,nys-nbgp_local+j,i) = ar(k,nyn-nbgp_local+1+j,i)
-                     ar(k,nyn+1+j,i)          = ar(k,nys+j,i)
+                   ar(k,nyn+1+j,i)          = ar(k,nys+j,i)
                 ENDDO
              ENDDO