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

Timestamp:

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

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Output of precipitation amount/rate and roughness length
+! Output of precipitation amount/rate and roughness length,
+! 2nd+3rd argument removed from exchange horiz
 !
 ! Former revisions:
@@ -208 +209 @@
                 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
@@ -218 +219 @@
                    resorted = .TRUE.
                 ELSE
-                   CALL exchange_horiz( pc_av, 0, 0 )
+                   CALL exchange_horiz( pc_av )
                    to_be_resorted => pc_av
                 ENDIF
@@ -243 +244 @@
                       ENDDO
                    ENDDO
-                   CALL exchange_horiz( tend, 0, 0 )
+                   CALL exchange_horiz( tend )
                    DO  i = nxl-1, nxr+1
                       DO  j = nys-1, nyn+1
@@ -253 +254 @@
                    resorted = .TRUE.
                 ELSE
-                   CALL exchange_horiz( pr_av, 0, 0 )
+                   CALL exchange_horiz( pr_av )
                    to_be_resorted => pr_av
                 ENDIF