Changeset 9321 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

Timestamp:

2018-02-12T14:29:34+01:00 (6 years ago)

Author:

davestorkey

Message:

UKMO/dev_r5518_GO6_package branch: allow timing of I/O and coupling only.
See GMED ticket 374.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90 (modified) (5 diffs)

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

@@ -29 +29 @@
    USE icb_oce        ! define iceberg arrays
    USE icbutl         ! iceberg utility routines
+   USE timing
 
    IMPLICIT NONE
@@ -71 +72 @@
       TYPE(point)                  ::   localpt   ! NOT a pointer but an actual local variable
       !!----------------------------------------------------------------------
-
+      IF(nn_timing == 2)  CALL timing_start('iom_rstget')
       ! Find a restart file. Assume iceberg restarts in same directory as ocean restarts
       ! and are called TRIM(cn_ocerst)//'_icebergs'
@@ -146 +147 @@
       CALL iom_close( ncid )
       !
+      IF(nn_timing == 2)  CALL timing_stop('iom_rstget')
       IF( lwp .and. nn_verbose_level >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed'
       !
@@ -169 +171 @@
       TYPE(point)  , POINTER :: pt
       !!----------------------------------------------------------------------
-
+      IF(nn_timing == 2)  CALL timing_start('iom_rstput')
       ! Assume we write iceberg restarts to same directory as ocean restarts.
       cl_path = TRIM(cn_ocerst_outdir)
@@ -374 +376 @@
       nret = NF90_CLOSE(ncid)
       IF (nret /= NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_close failed')
+      IF(nn_timing == 2)  CALL timing_stop('iom_rstput')
       !
    END SUBROUTINE icb_rst_write