Changeset 75 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Mar 22, 2007 9:54:05 AM (17 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

• palm/trunk/SOURCE/data_output_3d.f90 (modified) (5 diffs)

palm/trunk/SOURCE/data_output_3d.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! 2nd+3rd argument removed from exchange horiz
 !
 ! Former revisions:
@@ -129 +129 @@
              IF ( av == 0 )  THEN
                 tend = prt_count
-                CALL exchange_horiz( tend, 0, 0 )
+                CALL exchange_horiz( tend )
                 DO  i = nxl-1, nxr+1
                    DO  j = nys-1, nyn+1
@@ -139 +139 @@
                 resorted = .TRUE.
              ELSE
-                CALL exchange_horiz( pc_av, 0, 0 )
+                CALL exchange_horiz( pc_av )
                 to_be_resorted => pc_av
              ENDIF
@@ -164 +164 @@
                    ENDDO
                 ENDDO
-                CALL exchange_horiz( tend, 0, 0 )
+                CALL exchange_horiz( tend )
                 DO  i = nxl-1, nxr+1
                    DO  j = nys-1, nyn+1
@@ -174 +174 @@
                 resorted = .TRUE.
              ELSE
-                CALL exchange_horiz( pr_av, 0, 0 )
+                CALL exchange_horiz( pr_av )
                 to_be_resorted => pr_av
              ENDIF