Changeset 3971 for trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solmat.F90

Timestamp:

2013-07-12T11:31:43+02:00 (11 years ago)

Author:

cbricaud

Message:

Correction for 1D configuration ; see ticket #1096

File:

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

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

@@ -30 +30 @@
    USE lbclnk          ! lateral boudary conditions
    USE lib_mpp         ! distributed memory computing
+   USE c1d               ! 1D vertical configuration
    USE in_out_manager  ! I/O manager
    USE timing          ! timing
@@ -271 +272 @@
       
       ! SOR and PCG solvers
+      IF( lk_c1d ) CALL lbc_lnk( gcdmat, 'T', 1._wp ) ! 1D case bmask =/0  but gcdmat not define everywhere 
       DO jj = 1, jpj
          DO ji = 1, jpi