Ignore:
Timestamp:
Mar 24, 2011 7:33:15 PM (13 years ago)
Author:
suehring
Message:

Removed bugfix in exchange_horiz_2d_int().

File:
1 edited

Legend:

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

    r668 r702  
    77! Current revisions:
    88! -----------------
     9!
     10! nys-1, nyn+1, nxl-1, nxr+1 changed to nysg, nyng, nxlg, nxrg.
    911!
    1012! Former revisions:
     
    8284!                CASE ( 'u2_av' )
    8385!                   IF ( .NOT. ALLOCATED( u2_av ) ) THEN
    84 !                      ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
     86!                      ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    8587!                   ENDIF
    8688!                   IF ( k == 1 )  READ ( 13 )  tmp_3d
    87 !                   u2_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
    88 !                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
     89!                   u2_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     90!                                          tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    8991!
    9092!                CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.