Changeset 2674 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

Timestamp:

2011-03-08T18:30:16+01:00 (13 years ago)

Author:

rblod

Message:

First set of changes in OPA_SRC to ensure AGRIF compatibility

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90 (modified) (2 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -31 +31 @@
    USE dynadv          ! advection 
    USE solmat          ! matrix construction for elliptic solvers
-   USE solver          ! solver initialization
    USE solpcg          ! preconditionned conjugate gradient solver
    USE solsor          ! Successive Over-relaxation solver
@@ -124 +123 @@
          spgu(:,:) = 0.e0                     ! surface pressure gradient (i-direction)
          spgv(:,:) = 0.e0                     ! surface pressure gradient (j-direction)
-         CALL solver_init( nit000 )           ! Elliptic solver initialisation
 
          ! read filtered free surface arrays in restart file