Changeset 4590 for branches/2012

Timestamp:

2014-03-26T11:29:42+01:00 (10 years ago)

Author:

pabouttier

Message:

Add a call to timing_stop at the end of eos_insistu_2d_tan, see Ticket #1281

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/eosbn2_tam.F90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/eosbn2_tam.F90

@@ -612 +612 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 ) CALL timing_start('eos2d')
+      IF( nn_timing == 1 ) CALL timing_start('eos2d_tan')
       !
       CALL wrk_alloc( jpi, jpj, zws )
@@ -771 +771 @@
       CALL wrk_dealloc( jpi, jpj, zws )
       !
+      IF( nn_timing == 1 ) CALL timing_stop('eos2d_tan')
    END SUBROUTINE eos_insitu_2d_tan