Changeset 3062 for branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

Timestamp:

2011-11-09T11:47:32+01:00 (12 years ago)

Author:

rfurner

Message:

ticket #885. added in changes from branches/2011/UKMO_MERCATOR_obc_bdy_merge@2888

File:

• branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (4 diffs)

branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -36 +36 @@
    USE obc_oce
    USE obctra          ! open boundary condition (obc_tra routine)
-   USE bdy_par         ! Unstructured open boundary condition (bdy_tra_frs routine)
-   USE bdytra          ! Unstructured open boundary condition (bdy_tra_frs routine)
+   USE bdy_oce
+   USE bdytra          ! open boundary condition (bdy_tra routine)
    USE in_out_manager  ! I/O manager
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
@@ -43 +43 @@
    USE traqsr          ! penetrative solar radiation (needed for nksr)
    USE traswp          ! swap array
-   USE obc_oce 
 #if defined key_agrif
    USE agrif_opa_update
@@ -81 +80 @@
       !!              - Apply lateral boundary conditions on (ta,sa) 
       !!             at the local domain   boundaries through lbc_lnk call, 
-      !!             at the radiative open boundaries (lk_obc=T), 
-      !!             at the relaxed   open boundaries (lk_bdy=T), and
+      !!             at the one-way open boundaries (lk_obc=T), 
       !!             at the AGRIF zoom     boundaries (lk_agrif=T)
       !!
@@ -119 +117 @@
 #endif
 #if defined key_bdy 
-      IF( lk_bdy )   CALL bdy_tra_frs( kt )  ! BDY open boundaries
+      IF( lk_bdy )   CALL bdy_tra( kt )  ! BDY open boundaries
 #endif
 #if defined key_agrif