Ignore:
Timestamp:
Mar 22, 2007 9:54:05 AM (15 years ago)
Author:
raasch
Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:
1 edited

Legend:

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

    r72 r75  
    44! Actual revisions:
    55! -----------------
    6 ! Output of precipitation amount/rate and roughness length
     6! Output of precipitation amount/rate and roughness length,
     7! 2nd+3rd argument removed from exchange horiz
    78!
    89! Former revisions:
     
    208209                IF ( av == 0 )  THEN
    209210                   tend = prt_count
    210                    CALL exchange_horiz( tend, 0, 0 )
     211                   CALL exchange_horiz( tend )
    211212                   DO  i = nxl-1, nxr+1
    212213                      DO  j = nys-1, nyn+1
     
    218219                   resorted = .TRUE.
    219220                ELSE
    220                    CALL exchange_horiz( pc_av, 0, 0 )
     221                   CALL exchange_horiz( pc_av )
    221222                   to_be_resorted => pc_av
    222223                ENDIF
     
    243244                      ENDDO
    244245                   ENDDO
    245                    CALL exchange_horiz( tend, 0, 0 )
     246                   CALL exchange_horiz( tend )
    246247                   DO  i = nxl-1, nxr+1
    247248                      DO  j = nys-1, nyn+1
     
    253254                   resorted = .TRUE.
    254255                ELSE
    255                    CALL exchange_horiz( pr_av, 0, 0 )
     256                   CALL exchange_horiz( pr_av )
    256257                   to_be_resorted => pr_av
    257258                ENDIF
Note: See TracChangeset for help on using the changeset viewer.