Ignore:
Timestamp:
2016-07-22T02:21:07+02:00 (5 years ago)
Author:
jonnywilliams
Message:

fixing conflicts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/nemo_v3_6_STABLE_copy-NIWA-N96-ORCA1/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r6237 r6817  
    7676      INTEGER  ::   ib_bdy, ii, ij, ik, igrd, ib, ir, iseg ! dummy loop indices 
    7777      INTEGER  ::   icount, icountr, ibr_max, ilen1, ibm1  ! local integers 
    78       INTEGER  ::   iwe, ies, iso, ino, inum, id_dummy         !   -       - 
     78      INTEGER  ::   iw, ie, is, in, inum, id_dummy         !   -       - 
    7979      INTEGER  ::   igrd_start, igrd_end, jpbdta           !   -       - 
    8080      INTEGER  ::   jpbdtau, jpbdtas                       !   -       - 
     
    777777!      is = mjg(1) + 1            ! if monotasking and no zoom, is=2 
    778778!      in = mjg(1) + nlcj-1 - 1   ! if monotasking and no zoom, in=jpjm1       
    779       iwe = mig(1) - jpizoom + 2         ! if monotasking and no zoom, iw=2 
    780       ies = mig(1) + nlci - jpizoom - 1  ! if monotasking and no zoom, ie=jpim1 
    781       iso = mjg(1) - jpjzoom + 2         ! if monotasking and no zoom, is=2 
    782       ino = mjg(1) + nlcj - jpjzoom - 1  ! if monotasking and no zoom, in=jpjm1 
     779      iw = mig(1) - jpizoom + 2         ! if monotasking and no zoom, iw=2 
     780      ie = mig(1) + nlci - jpizoom - 1  ! if monotasking and no zoom, ie=jpim1 
     781      is = mjg(1) - jpjzoom + 2         ! if monotasking and no zoom, is=2 
     782      in = mjg(1) + nlcj - jpjzoom - 1  ! if monotasking and no zoom, in=jpjm1 
    783783 
    784784      ALLOCATE( nbondi_bdy(nb_bdy)) 
     
    853853               ENDIF 
    854854               ! check if point is in local domain 
    855                IF(  nbidta(ib,igrd,ib_bdy) >= iwe .AND. nbidta(ib,igrd,ib_bdy) <= ies .AND.   & 
    856                   & nbjdta(ib,igrd,ib_bdy) >= iso .AND. nbjdta(ib,igrd,ib_bdy) <= ino      ) THEN 
     855               IF(  nbidta(ib,igrd,ib_bdy) >= iw .AND. nbidta(ib,igrd,ib_bdy) <= ie .AND.   & 
     856                  & nbjdta(ib,igrd,ib_bdy) >= is .AND. nbjdta(ib,igrd,ib_bdy) <= in       ) THEN 
    857857                  ! 
    858858                  icount = icount  + 1 
     
    897897               DO ib = 1, nblendta(igrd,ib_bdy) 
    898898                  ! check if point is in local domain and equals ir 
    899                   IF(  nbidta(ib,igrd,ib_bdy) >= iwe .AND. nbidta(ib,igrd,ib_bdy) <= ies .AND.   & 
    900                      & nbjdta(ib,igrd,ib_bdy) >= iso .AND. nbjdta(ib,igrd,ib_bdy) <= ino .AND.   & 
     899                  IF(  nbidta(ib,igrd,ib_bdy) >= iw .AND. nbidta(ib,igrd,ib_bdy) <= ie .AND.   & 
     900                     & nbjdta(ib,igrd,ib_bdy) >= is .AND. nbjdta(ib,igrd,ib_bdy) <= in .AND.   & 
    901901                     & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    902902                     ! 
     
    15951595            ELSE 
    15961596               ! This is a corner 
    1597                IF(lwp) WRITE(numout,*) 'Found a South-West corner at (i,j): ', jpiwob(ib), jpjwdt(ib) 
     1597               WRITE(numout,*) 'Found a South-West corner at (i,j): ', jpiwob(ib), jpjwdt(ib) 
    15981598               CALL bdy_ctl_corn(npckgw(ib), icornw(ib,1)) 
    15991599               itest=itest+1 
     
    16091609            ELSE 
    16101610               ! This is a corner 
    1611                IF(lwp) WRITE(numout,*) 'Found a North-West corner at (i,j): ', jpiwob(ib), jpjwft(ib) 
     1611               WRITE(numout,*) 'Found a North-West corner at (i,j): ', jpiwob(ib), jpjwft(ib) 
    16121612               CALL bdy_ctl_corn(npckgw(ib), icornw(ib,2)) 
    16131613               itest=itest+1 
     
    16391639            ELSE 
    16401640               ! This is a corner 
    1641                IF(lwp) WRITE(numout,*) 'Found a South-East corner at (i,j): ', jpieob(ib)+1, jpjedt(ib) 
     1641               WRITE(numout,*) 'Found a South-East corner at (i,j): ', jpieob(ib)+1, jpjedt(ib) 
    16421642               CALL bdy_ctl_corn(npckge(ib), icorne(ib,1)) 
    16431643               itest=itest+1 
     
    16531653            ELSE 
    16541654               ! This is a corner 
    1655                IF(lwp) WRITE(numout,*) 'Found a North-East corner at (i,j): ', jpieob(ib)+1, jpjeft(ib) 
     1655               WRITE(numout,*) 'Found a North-East corner at (i,j): ', jpieob(ib)+1, jpjeft(ib) 
    16561656               CALL bdy_ctl_corn(npckge(ib), icorne(ib,2)) 
    16571657               itest=itest+1 
Note: See TracChangeset for help on using the changeset viewer.