Changeset 11941


Ignore:
Timestamp:
2019-11-21T10:05:28+01:00 (6 months ago)
Author:
andmirek
Message:

Ticket #2314: add coupling timers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/SBC/sbcmod.F90

    r10888 r11941  
    422422      CASE( jp_flx     )   ;   CALL sbc_flx       ( kt )                    ! flux formulation 
    423423      CASE( jp_blk     ) 
    424          IF( ll_sas    )       CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: SAS receiving fields from OPA 
     424         IF( ll_sas    )       THEN 
     425                               IF( ln_timing )   CALL timing_start('sbc_sas_rcv') 
     426                               CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: SAS receiving fields from OPA 
     427                               IF( ln_timing )   CALL timing_stop('sbc_sas_rcv') 
     428         ENDIF 
    425429                               CALL sbc_blk       ( kt )                    ! bulk formulation for the ocean 
    426430                               ! 
    427431      CASE( jp_purecpl )   ;   CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! pure coupled formulation 
    428432      CASE( jp_none    ) 
    429          IF( ll_opa    )       CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: OPA receiving fields from SAS 
     433         IF( ll_opa    )       THEN 
     434                               IF( ln_timing )   CALL timing_start('sbc_opa_rcv') 
     435                               CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: OPA receiving fields from SAS 
     436                               IF( ln_timing )   CALL timing_stop('sbc_opa_rcv') 
     437         ENDIF 
    430438      END SELECT 
    431439      ! 
Note: See TracChangeset for help on using the changeset viewer.