Changeset 3160 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

Timestamp:

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

Author:

cetlod

Message:

Add timing in TOP routines

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsub.F90 (modified) (9 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

@@ -67 +67 @@
       REAL(wp)              ::  z1_ne3t, z1_ne3u, z1_ne3v, z1_ne3w
       !!-------------------------------------------------------------------
-
-       IF( kt == nit000 ) THEN
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sub_stp')
+      !
+      IF( kt == nit000 ) THEN
            IF(lwp) WRITE(numout,*)
            IF(lwp) WRITE(numout,*) 'trc_sub_stp : substepping of the passive tracers'
@@ -81 +83 @@
            r1_ndttrcp1      = 1._wp / REAL( nn_dttrc + 1, wp )
            !
-       ENDIF  
+      ENDIF  
 
        IF( MOD( kt , nn_dttrc ) /= 0 ) THEN
@@ -539 +541 @@
          CALL lbc_lnk( hvr   (:,:)         , 'V', 1. ) 
       ENDIF
-
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sub_stp')
+      !
    END SUBROUTINE trc_sub_stp
 
@@ -554 +557 @@
       INTEGER ::   ierr
       !!-------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sub_ini')
+      !
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) 'trc_sub_ini : initial set up of the passive tracers substepping'
@@ -643 +648 @@
 #endif
       !
+      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ini')
+      !
    END SUBROUTINE trc_sub_ini
 
@@ -657 +664 @@
       INTEGER :: jk                 ! dummy loop indices
       !!-------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sub_reset')
+      !
       !   restore physics variables
       un    (:,:,:)   =  un_temp    (:,:,:)
@@ -867 +876 @@
 #endif
       !
+      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_reset')
+      !
    END SUBROUTINE trc_sub_reset
 
@@ -896 +907 @@
       REAL(wp), POINTER, DIMENSION(:,:) :: zhdiv
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sub_ssh')
+      !
       ! Allocate temporary workspace
       CALL wrk_alloc( jpi, jpj, zhdiv )
@@ -1000 +1013 @@
       CALL wrk_dealloc( jpi, jpj, zhdiv )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('trc_sub_ssh')
+      !
    END SUBROUTINE trc_sub_ssh