Changeset 14643 for NEMO/branches/UKMO/NEMO_4.0.4_icesheet_and_river_coupling/src/OCE/SBC/sbccpl.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/SBC/sbccpl.F90 (modified) (7 diffs)

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