Changeset 9814 for NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/lib_mpp.F90

Timestamp:

2018-06-20T15:41:08+02:00 (6 years ago)

Author:

smasson

Message:

dev_r9759_HPC09_ESIWACE: get more informations

File:

• NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/lib_mpp.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/lib_mpp.F90

@@ -1625 +1625 @@
     ELSE
        IF ( ncom_stp > nit000 ) tac_wt = tac_wt + MPI_Wtime() - tic_wt
-       IF ( ( ncom_stp == ( nitend - 1 ) ) .AND. l_write_wt ) then
+       IF ( ( ncom_stp == ( nitend - nn_comm_mod ) ) .AND. l_write_wt ) then
           WRITE(6,'(A20,F11.6,A15,I8)') 'Computing time : ',tac_ct,' on MPI rank : ', narea
           WRITE(6,'(A20,F11.6,A15,I8)') 'Waiting time : ',tac_wt,' on MPI rank : ', narea
@@ -1838 +1838 @@
    END SUBROUTINE mppmax_real_multiple
 
+   SUBROUTINE simulated_lbc_lnk ()
+      WRITE(*,*) 'simulated_lbc_lnk: You should not have seen this print! error?'
+   END SUBROUTINE simulated_lbc_lnk ()
 #endif