Changeset 3294 for trunk/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcsms.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

@@ -46 +46 @@
       CHARACTER (len=25) :: charout
       !!---------------------------------------------------------------------
-
-      IF ( MOD( kt, nn_dttrc) /= 0 ) RETURN      ! this ROUTINE is called only every ndttrc time step
-
+      !
+      IF( nn_timing == 1 )   CALL timing_start('trc_sms')
+      !
       IF( lk_lobster )   CALL trc_sms_lobster( kt )    ! main program of LOBSTER
       IF( lk_pisces  )   CALL trc_sms_pisces ( kt )    ! main program of PISCES 
@@ -60 +60 @@
          CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm )
       ENDIF
+      !
+      IF( nn_timing == 1 )   CALL timing_stop('trc_sms')
       !
    END SUBROUTINE trc_sms