Changeset 14643

Timestamp:

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

Author:

dancopsey

Message:

Output timing information

Location:

NEMO/branches/UKMO/NEMO_4.0.4_icesheet_and_river_coupling/src/OCE

Files:

• IOM/iom.F90 (modified) (9 diffs)
• SBC/sbccpl.F90 (modified) (7 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
 

NEMO/branches/UKMO/NEMO_4.0.4_icesheet_and_river_coupling/src/OCE/SBC/sbccpl.F90

@@ -49 +49 @@
    USE lib_mpp        ! distribued memory computing library
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
+   USE timing         ! timing
 
 #if defined key_oasis3 
@@ -295 +296 @@
       ! ================================ !
       !
+      IF (ln_timing) CALL timing_start('sbc_cpl_init')
       REWIND( numnam_ref )              ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling
       READ  ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901)
@@ -1158 +1160 @@
       ENDIF 
       !
+      IF (ln_timing) CALL timing_stop('sbc_cpl_init')
+      !
    END SUBROUTINE sbc_cpl_init
 
@@ -1226 +1230 @@
       REAL(wp), DIMENSION(jpi,jpj) ::   ztx, zty, zmsk, zemp, zqns, zqsr, zcloud_fra
       !!----------------------------------------------------------------------
+      !
+      !
+      IF (ln_timing) CALL timing_start('sbc_cpl_rcv')
       !
       ll_wrtstp  = (( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend )) .AND. (nn_print>0)
@@ -1657 +1664 @@
       ENDIF
       !
+      IF (ln_timing) CALL timing_stop('sbc_cpl_rcv')
    END SUBROUTINE sbc_cpl_rcv
    
@@ -1700 +1708 @@
       !!----------------------------------------------------------------------
       !
+      IF (ln_timing) CALL timing_start('sbc_cpl_snd')
       IF( srcv(jpr_itx1)%laction ) THEN   ;   itx =  jpr_itx1   
       ELSE                                ;   itx =  jpr_otx1
@@ -2860 +2869 @@
 #endif
       !
+      IF (ln_timing) CALL timing_stop('sbc_cpl_snd')
    END SUBROUTINE sbc_cpl_snd