Changeset 16 for trunk/NEMO/OPA_SRC/SOL/solfet.F90

Timestamp:

2004-02-17T09:06:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/SOL/solfet.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SOL/solfet.F90

@@ -33 +33 @@
       !!     Solve the ellipic equation for the barotropic stream function
       !!     system (default option) or the transport divergence system
-      !!     ("key_dynspg_fsc") using a Finite Elements Tearing & 
+      !!     (lk_dynspg_fsc=T) using a Finite Elements Tearing and 
       !!      Interconnecting (FETI) approach.
       !!     In the former case, the barotropic stream function trend has a
@@ -142 +142 @@
       CALL feti_vmov( noeuds, wfeti(miax), gcx )
 
-      ! boundary conditions   !!bug ???  check  arguments...
-#   if defined key_dynspg_fsc
-#      if defined key_mpp
-      !   Mpp: export boundary values to neighbouring processors
-      CALL lbc_lnk( gcx, 'S', 1. )
-#      else
-      !   mono- or macro-tasking: W-point, >0, 2D array, no slab
-      IF( nperio /= 0 ) THEN
-         CALL lbc_lnk( gcx, 'T', 1. )
-      ENDIF
-#      endif
-#   else
-#      if defined key_mpp
-      !   Mpp: export boundary values to neighbouring processors
-      CALL lbc_lnk( gcx, 'G', 1. )
-#      else
-      !   mono- or macro-tasking: W-point, >0, 2D array, no slab
-      IF( nperio /= 0 ) THEN
-         CALL lbc_lnk( gcx, 'F', 1. )
-      ENDIF
-#      endif
-#   endif
+      CALL lbc_lnk( gcx, c_solver_pt, 1. )   ! lateral boundary condition
 
    END SUBROUTINE sol_fet