Changeset 3160 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/CFC

Timestamp:

2011-11-20T15:27:18+01:00 (13 years ago)

Author:

cetlod

Message:

Add timing in TOP routines

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90 (modified) (2 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

@@ -90 +90 @@
       REAL(wp), ALLOCATABLE, DIMENSION(:,:)  ::   zpatm     ! atmospheric function
       !!----------------------------------------------------------------------
+      !
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sms_cfc')
       !
       ALLOCATE( zpatm(jphem,jp_cfc), STAT=ierr )
@@ -192 +195 @@
       END IF
       !
+      IF( nn_timing == 1 )  CALL timing_stop('trc_sms_cfc')
+      !
    END SUBROUTINE trc_sms_cfc