Ignore:
Timestamp:
2019-05-24T10:22:47+02:00 (18 months ago)
Author:
girrmann
Message:

dev_r10984_HPC-13 : CYCLE instruction is not systematic anymore, computation is done on the halo whenever possible and overwritten by lbc_bdy instruction, see #2285

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyini.F90

    r11048 r11049  
    132132      INTEGER  ::   jpbdtau, jpbdtas                       !   -       - 
    133133      INTEGER  ::   ib_bdy1, ib_bdy2, ib1, ib2             !   -       - 
    134       INTEGER  ::   i_offset, j_offset, inbdy            !   -       - 
     134      INTEGER  ::   i_offset, j_offset, inbdy, itreat      !   -       - 
    135135      INTEGER , POINTER  ::  nbi, nbj, nbr                 ! short cuts 
    136136      REAL(wp), POINTER, DIMENSION(:,:)       ::   pmask    ! pointer to 2D mask fields 
     
    146146      REAL(wp), TARGET, DIMENSION(jpi,jpj) ::   zfmask  ! temporary fmask array excluding coastal boundary condition (shlat) 
    147147      REAL(wp)        , DIMENSION(jpi,jpj) ::   ztmp 
     148      REAL(wp), POINTER                    :: flagu,     flagv     ! short cuts 
    148149      LOGICAL  ::   llnobdy, llsobdy, lleabdy, llwebdy     ! local logicals 
    149150      !! 
     
    802803      iwe = mig(1) - 1 + 2 - nde       ! if monotasking and no zoom, iw=2 
    803804      ies = mig(1) + nlci-1 - 1 + nde  ! if monotasking and no zoom, ie=jpim1 
    804       iso = mjg(1) - 1 + 2 -nde        ! if monotasking and no zoom, is=2 
     805      iso = mjg(1) - 1 + 2 - nde       ! if monotasking and no zoom, is=2 
    805806      ino = mjg(1) + nlcj-1 - 1 + nde  ! if monotasking and no zoom, in=jpjm1 
    806807 
     
    12741275            ztmp(:,:) = 0._wp 
    12751276            DO ib = 1, idx_bdy(ib_bdy)%nblenrim(igrd) 
    1276                ii =  idx_bdy(ib_bdy)%nbi(ib,igrd) 
    1277                ij =  idx_bdy(ib_bdy)%nbj(ib,igrd) 
     1277               ii = idx_bdy(ib_bdy)%nbi(ib,igrd) 
     1278               ij = idx_bdy(ib_bdy)%nbj(ib,igrd) 
    12781279               IF( ii == 1 .OR. ii == jpi .OR. ij == 1 .OR. ij == jpj )   CYCLE 
    12791280               llnobdy = pmask(ii  ,ij+1) == 1.   
     
    13271328         END DO 
    13281329      END DO 
     1330 
    13291331      ! 
    13301332      ! Tidy up 
Note: See TracChangeset for help on using the changeset viewer.