Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solmat.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/OPA_SRC/SOL/solmat.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solmat.F90

@@ -31 +31 @@
    USE lib_mpp         ! distributed memory computing
    USE in_out_manager  ! I/O manager
+   USE timing          ! timing
 
    IMPLICIT NONE
@@ -64 +65 @@
       REAL(wp) ::   z2dt, zcoef
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sol_mat')
+      !
       
       ! 1. Construction of the matrix
@@ -297 +300 @@
       gccd (:,:) = 0.e0
       ! 
+      IF( nn_timing == 1 )  CALL timing_stop('sol_mat')
+      !
    END SUBROUTINE sol_mat