Changeset 10867 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

Timestamp:

2019-04-15T10:38:08+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 450: find nn_timing in icbrst.F90

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

@@ -148 +148 @@
       CALL iom_close( ncid )
       !
-      IF(nn_timing == 1)  CALL timing_stop('iom_rstget')
+      IF(nn_timing == 2)  CALL timing_stop('iom_rstget')
       IF( lwp .and. nprint >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed'
       !