Changeset 911 for trunk/NEMO/OPA_SRC/TRA/tranxt.F90

Timestamp:

2008-04-28T11:31:32+02:00 (16 years ago)

Author:

ctlod

Message:

Implementation of the BDY package, see ticket: #126

File:

• trunk/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -27 +27 @@
    USE domvvl          ! variable volume
    USE obctra          ! open boundary condition (obc_tra routine)
+   USE bdytra          ! Unstructured open boundary condition (bdy_tra routine)
    USE in_out_manager  ! I/O manager
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
@@ -159 +160 @@
       ! Update tracers on open boundaries.
       CALL obc_tra( kt )
+
+      !                                                ! ===============
+      DO jk = 1, jpkm1                                 ! Horizontal slab
+         !                                             ! ===============
+#elif defined key_bdy
+         !                                             ! ===============
+      END DO                                           !   End of slab
+      !                                                ! ===============
+
+      ! Update tracers on open boundaries.
+      CALL bdy_tra( kt )
+
       !                                                ! ===============
       DO jk = 1, jpkm1                                 ! Horizontal slab