Changeset 11941 for NEMO/branches

Timestamp:

2019-11-21T10:05:28+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2314: add coupling timers

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/SBC/sbcmod.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/SBC/sbcmod.F90

@@ -422 +422 @@
       CASE( jp_flx     )   ;   CALL sbc_flx       ( kt )                    ! flux formulation
       CASE( jp_blk     )
-         IF( ll_sas    )       CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: SAS receiving fields from OPA
+         IF( ll_sas    )       THEN
+                               IF( ln_timing )   CALL timing_start('sbc_sas_rcv')
+                               CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: SAS receiving fields from OPA
+                               IF( ln_timing )   CALL timing_stop('sbc_sas_rcv')
+         ENDIF
                                CALL sbc_blk       ( kt )                    ! bulk formulation for the ocean
                                !
       CASE( jp_purecpl )   ;   CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! pure coupled formulation
       CASE( jp_none    )
-         IF( ll_opa    )       CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: OPA receiving fields from SAS
+         IF( ll_opa    )       THEN
+                               IF( ln_timing )   CALL timing_start('sbc_opa_rcv')
+                               CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: OPA receiving fields from SAS
+                               IF( ln_timing )   CALL timing_stop('sbc_opa_rcv')
+         ENDIF
       END SELECT
       !