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

Changeset 14354 for NEMO/trunk/src/OCE


Ignore:
Timestamp:
2021-01-27T16:47:15+01:00 (3 years ago)
Author:
clem
Message:

bad output in communication report

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r14275 r14354  
    13981398         END DO 
    13991399         IF ( crname_lbc(n_sequence_lbc) /= 'already counted' ) THEN 
    1400             WRITE(numcom,'(A, I4, A, A)') ' - ', 1,' times by subroutine ', TRIM(crname_lbc(ncom_rec_max)) 
     1400            WRITE(numcom,'(A, I4, A, A)') ' - ', 1,' times by subroutine ', TRIM(crname_lbc(n_sequence_lbc)) 
    14011401         END IF 
    14021402         WRITE(numcom,*) ' ' 
Note: See TracChangeset for help on using the changeset viewer.