Changeset 14643 for NEMO/branches/UKMO/NEMO_4.0.4_icesheet_and_river_coupling/src/OCE/IOM/iom.F90

Timestamp:

2021-03-26T13:53:14+01:00 (3 years ago)

Author:

dancopsey

Message:

Output timing information

File:

• NEMO/branches/UKMO/NEMO_4.0.4_icesheet_and_river_coupling/src/OCE/IOM/iom.F90 (modified) (9 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_icesheet_and_river_coupling/src/OCE/IOM/iom.F90

@@ -47 +47 @@
    USE lib_fortran 
    USE diurnal_bulk, ONLY : ln_diurnal_only, ln_diurnal
+   USE timing
 
    IMPLICIT NONE
@@ -1529 +1530 @@
       LOGICAL :: llx                ! local xios write flag
       INTEGER :: ivid   ! variable id
+      
+      IF (ln_timing) CALL timing_start('iom_rst_put')
 
       llx = .FALSE.
@@ -1547 +1550 @@
          ENDIF
       ENDIF
+      IF (ln_timing) CALL timing_stop('iom_rst_put')
    END SUBROUTINE iom_rp0d
 
@@ -1560 +1564 @@
       INTEGER :: ivid   ! variable id
 
+      IF (ln_timing) CALL timing_start('iom_rst_put')
       llx = .FALSE.
       IF(PRESENT(ldxios)) llx = ldxios
@@ -1577 +1582 @@
          ENDIF
       ENDIF
+      IF (ln_timing) CALL timing_stop('iom_rst_put')
    END SUBROUTINE iom_rp1d
 
@@ -1590 +1596 @@
       INTEGER :: ivid   ! variable id
 
+      IF (ln_timing) CALL timing_start('iom_rst_put')
       llx = .FALSE.
       IF(PRESENT(ldxios)) llx = ldxios
@@ -1607 +1614 @@
          ENDIF
       ENDIF
+      IF (ln_timing) CALL timing_stop('iom_rst_put')
    END SUBROUTINE iom_rp2d
 
@@ -1620 +1628 @@
       INTEGER :: ivid   ! variable id
 
+      IF (ln_timing) CALL timing_start('iom_rst_put')
       llx = .FALSE.
       IF(PRESENT(ldxios)) llx = ldxios
@@ -1637 +1646 @@
          ENDIF
       ENDIF
+      IF (ln_timing) CALL timing_stop('iom_rst_put')
    END SUBROUTINE iom_rp3d