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

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/AGE/trcsms_age.F90

@@ -45 +45 @@
       !! ** Method  : -
       !!----------------------------------------------------------------------
-      !
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       INTEGER ::   jn, jk   ! dummy loop index
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('trc_sms_age')
+      IF( ln_timing )   CALL timing_start('trc_sms_age')
       !
       IF(lwp) WRITE(numout,*)
@@ -59 +58 @@
       DO jk = 1, nla_age
          tra(:,:,jk,jp_age) = rn_age_kill_rate * trb(:,:,jk,jp_age)
-      ENDDO
+      END DO
       !
       tra(:,:,nl_age,jp_age) = frac_kill_age * rn_age_kill_rate * trb(:,:,nl_age,jp_age)  &
@@ -66 +65 @@
       DO jk = nlb_age, jpk
          tra(:,:,jk,jp_age) = tmask(:,:,jk) * rryear
-      ENDDO
+      END DO
       !
       IF( l_trdtrc ) CALL trd_trc( tra(:,:,:,jp_age), jn, jptra_sms, kt )   ! save trends
       !
-      IF( nn_timing == 1 )  CALL timing_stop('trc_sms_age')
+      IF( ln_timing )   CALL timing_stop('trc_sms_age')
       !
    END SUBROUTINE trc_sms_age