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 10982 for NEMO/trunk/src/OCE – NEMO

Changeset 10982 for NEMO/trunk/src/OCE


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

trunk:Regroup communication report, See #2281

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r10817 r10982  
    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.