- Timestamp:
- 2019-07-18T17:12:52+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/LBC/lib_mpp.F90
r11105 r11303 1494 1494 LOGICAL , OPTIONAL, INTENT(in ) :: ld_lbc, ld_glb, ld_dlg 1495 1495 !! 1496 CHARACTER(len=128) :: ccountname ! name of a subroutine to count communications 1496 1497 LOGICAL :: ll_lbc, ll_glb, ll_dlg 1497 INTEGER :: ji, jj, jk, jh, jf ! dummy loop indices1498 INTEGER :: ji, jj, jk, jh, jf, jcount ! dummy loop indices 1498 1499 !!---------------------------------------------------------------------- 1499 1500 ! … … 1552 1553 WRITE(numcom,*) ' ' 1553 1554 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) 1559 1567 END IF 1560 jj = jj + 11561 1568 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 1563 1572 WRITE(numcom,*) ' ' 1564 1573 IF ( n_sequence_glb > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.