Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2017-12-19T09:26:25+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: ln_timing instead of nn_timing + restricted timing to nemo_init and routine called by step in OPA_SRC

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (11 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -47 +47 @@
    USE iom            ! NetCDF library
    USE lib_mpp        ! distribued memory computing library
-   USE timing         ! Timing
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
 
@@ -258 +257 @@
 
       !!---------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('sbc_cpl_init')
       !
       ! ================================ !
@@ -1046 +1043 @@
          &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' )
       IF( ln_dm2dc .AND. ln_cpl ) ncpl_qsr_freq = 86400 / ncpl_qsr_freq
-
-      !
-      IF( nn_timing == 1 )   CALL timing_stop('sbc_cpl_init')
       !
    END SUBROUTINE sbc_cpl_init
@@ -1114 +1108 @@
       REAL(wp), DIMENSION(jpi,jpj) ::   ztx, zty, zmsk, zemp, zqns, zqsr
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('sbc_cpl_rcv')
       !
       IF( ln_mixcpl )   zmsk(:,:) = 1. - xcplmask(:,:,0)
@@ -1453 +1445 @@
       ENDIF
       !
-      IF( nn_timing == 1 )   CALL timing_stop('sbc_cpl_rcv')
-      !
    END SUBROUTINE sbc_cpl_rcv
    
@@ -1498 +1488 @@
       REAL(wp), DIMENSION(jpi,jpj) ::   ztx, zty 
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('sbc_cpl_ice_tau')
       !
       IF( srcv(jpr_itx1)%laction ) THEN   ;   itx =  jpr_itx1   
@@ -1658 +1646 @@
 
       ENDIF
-      !   
-      IF( nn_timing == 1 )   CALL timing_stop('sbc_cpl_ice_tau')
       !
    END SUBROUTINE sbc_cpl_ice_tau
@@ -1730 +1716 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_flx')
-      !
       IF( ln_mixcpl )   zmsk(:,:) = 1. - xcplmask(:,:,0)
       ziceld(:,:) = 1._wp - picefr(:,:)
@@ -2113 +2097 @@
       !
 #endif
-      IF( nn_timing == 1 )   CALL timing_stop('sbc_cpl_ice_flx')
       !
    END SUBROUTINE sbc_cpl_ice_flx
@@ -2135 +2118 @@
       REAL(wp), DIMENSION(jpi,jpj,jpl) ::   ztmp3, ztmp4   
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('sbc_cpl_snd')
       !
       isec = ( kt - nit000 ) * NINT( rdt )        ! date of exchanges
@@ -2713 +2694 @@
 #endif
       !
-      IF( nn_timing == 1 )   CALL timing_stop('sbc_cpl_snd')
-      !
    END SUBROUTINE sbc_cpl_snd