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

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

@@ -23 +23 @@
    USE dynspg_oce      ! choice/control of key cpp for surface pressure gradient
    USE solmat          ! matrix of the solver
-   USE obc_oce         ! Lateral open boundary condition
    USE in_out_manager  ! I/O manager
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp         ! MPP library
+   USE timing          ! timing
 
    IMPLICIT NONE
@@ -54 +54 @@
       NAMELIST/namsol/ nn_solv, nn_sol_arp, nn_nmin, nn_nmax, nn_nmod, rn_eps, rn_resmax, rn_sor
       !!----------------------------------------------------------------------
+      !
+      IF( nn_timing == 1 )  CALL timing_start('solver_init')
+      !
 
       IF(lwp) THEN                  !* open elliptic solver statistics file (only on the printing processors)
@@ -111 +114 @@
       CALL sol_mat( kt )            !* Construction of the elliptic system matrix
       !
+      IF( nn_timing == 1 )  CALL timing_stop('solver_init')
+      !
    END SUBROUTINE solver_init
 #endif