Changeset 3160 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlim.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/PISCES/p4zlim.F90 (modified) (2 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlim.F90

@@ -78 +78 @@
       REAL(wp) ::   zconc1d, zconc1dnh4, zconc0n, zconc0nnh4   
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('p4z_lim')
+      !
       DO jk = 1, jpkm1
          DO jj = 1, jpj
@@ -171 +173 @@
          END DO
       END DO
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('p4z_lim')
       !
    END SUBROUTINE p4z_lim