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 11303 for NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/LBC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2019-07-18T17:12:52+02:00 (5 years ago)
Author:
dancopsey
Message:

update to be relative to 11081 of NEMO_4.0_mirror

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/LBC/lib_mpp.F90

    r11105 r11303  
    14941494      LOGICAL         , OPTIONAL, INTENT(in   ) ::   ld_lbc, ld_glb, ld_dlg 
    14951495      !! 
     1496      CHARACTER(len=128)                        ::   ccountname  ! name of a subroutine to count communications 
    14961497      LOGICAL ::   ll_lbc, ll_glb, ll_dlg 
    1497       INTEGER ::    ji,  jj,  jk,  jh, jf   ! dummy loop indices 
     1498      INTEGER ::    ji,  jj,  jk,  jh, jf, jcount   ! dummy loop indices 
    14981499      !!---------------------------------------------------------------------- 
    14991500      ! 
     
    15521553         WRITE(numcom,*) ' ' 
    15531554         WRITE(numcom,*) ' lbc_lnk called' 
    1554          jj = 1 
    1555          DO ji = 2, n_sequence_lbc 
    1556             IF( crname_lbc(ji-1) /= crname_lbc(ji) ) THEN 
    1557                WRITE(numcom,'(A, I4, A, A)') ' - ', jj,' times by subroutine ', TRIM(crname_lbc(ji-1)) 
    1558                jj = 0 
     1555         DO ji = 1, n_sequence_lbc - 1 
     1556            IF ( crname_lbc(ji) /= 'already counted' ) THEN 
     1557               ccountname = crname_lbc(ji) 
     1558               crname_lbc(ji) = 'already counted' 
     1559               jcount = 1 
     1560               DO jj = ji + 1, n_sequence_lbc 
     1561                  IF ( ccountname ==  crname_lbc(jj) ) THEN 
     1562                     jcount = jcount + 1 
     1563                     crname_lbc(jj) = 'already counted' 
     1564                  END IF 
     1565               END DO 
     1566               WRITE(numcom,'(A, I4, A, A)') ' - ', jcount,' times by subroutine ', TRIM(ccountname) 
    15591567            END IF 
    1560             jj = jj + 1  
    15611568         END DO 
    1562          WRITE(numcom,'(A, I4, A, A)') ' - ', jj,' times by subroutine ', TRIM(crname_lbc(n_sequence_lbc)) 
     1569         IF ( crname_lbc(n_sequence_lbc) /= 'already counted' ) THEN 
     1570            WRITE(numcom,'(A, I4, A, A)') ' - ', 1,' times by subroutine ', TRIM(crname_lbc(ncom_rec_max)) 
     1571         END IF 
    15631572         WRITE(numcom,*) ' ' 
    15641573         IF ( n_sequence_glb > 0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.