Changeset 14354
- Timestamp:
- 2021-01-27T16:47:15+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LBC/lib_mpp.F90
r14275 r14354 1398 1398 END DO 1399 1399 IF ( crname_lbc(n_sequence_lbc) /= 'already counted' ) THEN 1400 WRITE(numcom,'(A, I4, A, A)') ' - ', 1,' times by subroutine ', TRIM(crname_lbc(n com_rec_max))1400 WRITE(numcom,'(A, I4, A, A)') ' - ', 1,' times by subroutine ', TRIM(crname_lbc(n_sequence_lbc)) 1401 1401 END IF 1402 1402 WRITE(numcom,*) ' '
Note: See TracChangeset
for help on using the changeset viewer.