Changeset 14354


Ignore:
Timestamp:
2021-01-27T16:47:15+01:00 (4 months 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.