Changeset 2413 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

Timestamp:

2010-11-19T20:46:05+01:00 (13 years ago)

Author:

gm

Message:

v3.3beta: #763 remove grid-point types S and G from the North Fold treatment

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

@@ -105 +105 @@
       !                             !* Grid-point at which the solver is applied
 !!gm  c_solver_pt should be removed: nomore bsf, only T-point is used
-      IF( lk_mpp ) THEN   ;    c_solver_pt = 'S'   ! S=T with special staff ??? which one?
-      ELSE                ;    c_solver_pt = 'T'
-      ENDIF
+      c_solver_pt = 'T'                   ! always T-point (ssh solver only, not anymore bsf)
 
       CALL sol_mat( kt )            !* Construction of the elliptic system matrix