Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcbdy.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/TOP_SRC/trcbdy.F90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcbdy.F90

@@ -51 +51 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 ) CALL timing_start('trc_bdy')
+      IF( ln_timing )   CALL timing_start('trc_bdy')
       !
       igrd = 1 
@@ -76 +76 @@
       END DO
       !
-      IF( nn_timing == 1 ) CALL timing_stop('trc_bdy')
+      IF( ln_timing )   CALL timing_stop('trc_bdy')
 
    END SUBROUTINE trc_bdy
+
 
    SUBROUTINE trc_bdy_dmp( kt )
@@ -98 +99 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 ) CALL timing_start('trc_bdy_dmp')
+      IF( ln_timing )   CALL timing_start('trc_bdy_dmp')
       !
       DO jn = 1, jptra
          DO ib_bdy=1, nb_bdy
-            IF ( trcdta_bdy(jn, ib_bdy)%dmp ) THEN
+            IF( trcdta_bdy(jn, ib_bdy)%dmp ) THEN
                igrd = 1                       ! Everything is at T-points here
                DO ib = 1, idx_bdy(ib_bdy)%nblen(igrd)
@@ -114 +115 @@
                END DO
             ENDIF
-         ENDDO
-      ENDDO
+         END DO
+      END DO
       !
-      IF( nn_timing == 1 ) CALL timing_stop('trc_bdy_dmp')
+      IF( ln_timing )   CALL timing_stop('trc_bdy_dmp')
       !
    END SUBROUTINE trc_bdy_dmp