New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10984 – NEMO

Changeset 10984


Ignore:
Timestamp:
2019-05-15T14:57:59+02:00 (5 years ago)
Author:
girrmann
Message:

v4: Report commit from bugfix #2281 and #2282 fixed in the trunk

Location:
NEMO/releases/release-4.0/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0/src/OCE/BDY/bdyini.F90

    r10933 r10984  
    951951                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    952952                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 
    953                        if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then 
     953                       if( ii == (nlcit(nowe+1)-1) ) then 
    954954                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 
    955955                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
     
    965965                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    966966                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(2)+2 
    967                        if((com_east_b .ne. 1) .and. (ii == 2)) then 
     967                       if( ii == 2 ) then 
    968968                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(2)+2 
    969969                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
     
    980980                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    981981                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 
    982                        if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then 
     982                       if( ii == (nlcit(nowe+1)-1) ) then 
    983983                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 
    984984                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
     
    995995                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    996996                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(2)+2 
    997                        if((com_east_b .ne. 1) .and. (ii == 2)) then 
     997                       if( ii == 2 ) then 
    998998                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(2)+2 
    999999                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
  • NEMO/releases/release-4.0/src/OCE/LBC/lib_mpp.F90

    r10815 r10984  
    14801480      LOGICAL         , OPTIONAL, INTENT(in   ) ::   ld_lbc, ld_glb, ld_dlg 
    14811481      !! 
     1482      CHARACTER(len=128)                        ::   ccountname  ! name of a subroutine to count communications 
    14821483      LOGICAL ::   ll_lbc, ll_glb, ll_dlg 
    1483       INTEGER ::    ji,  jj,  jk,  jh, jf   ! dummy loop indices 
     1484      INTEGER ::    ji,  jj,  jk,  jh, jf, jcount   ! dummy loop indices 
    14841485      !!---------------------------------------------------------------------- 
    14851486      ! 
     
    15381539         WRITE(numcom,*) ' ' 
    15391540         WRITE(numcom,*) ' lbc_lnk called' 
    1540          jj = 1 
    1541          DO ji = 2, n_sequence_lbc 
    1542             IF( crname_lbc(ji-1) /= crname_lbc(ji) ) THEN 
    1543                WRITE(numcom,'(A, I4, A, A)') ' - ', jj,' times by subroutine ', TRIM(crname_lbc(ji-1)) 
    1544                jj = 0 
     1541         DO ji = 1, n_sequence_lbc - 1 
     1542            IF ( crname_lbc(ji) /= 'already counted' ) THEN 
     1543               ccountname = crname_lbc(ji) 
     1544               crname_lbc(ji) = 'already counted' 
     1545               jcount = 1 
     1546               DO jj = ji + 1, n_sequence_lbc 
     1547                  IF ( ccountname ==  crname_lbc(jj) ) THEN 
     1548                     jcount = jcount + 1 
     1549                     crname_lbc(jj) = 'already counted' 
     1550                  END IF 
     1551               END DO 
     1552               WRITE(numcom,'(A, I4, A, A)') ' - ', jcount,' times by subroutine ', TRIM(ccountname) 
    15451553            END IF 
    1546             jj = jj + 1  
    15471554         END DO 
    1548          WRITE(numcom,'(A, I4, A, A)') ' - ', jj,' times by subroutine ', TRIM(crname_lbc(n_sequence_lbc)) 
     1555         IF ( crname_lbc(n_sequence_lbc) /= 'already counted' ) THEN 
     1556            WRITE(numcom,'(A, I4, A, A)') ' - ', 1,' times by subroutine ', TRIM(crname_lbc(ncom_rec_max)) 
     1557         END IF 
    15491558         WRITE(numcom,*) ' ' 
    15501559         IF ( n_sequence_glb > 0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.