Changeset 311 for trunk/NEMO/OPA_SRC/lbclnk.F90

Timestamp:

2005-09-30T12:18:52+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_017:RB: added extra outer halo (parameters jpr2di and jpr2dj) and the corresponding lbc_lnk_e for boundary conditions.It will be use for nsolv=4.

File:

• trunk/NEMO/OPA_SRC/lbclnk.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/lbclnk.F90

@@ -12 +12 @@
    !!   lbc_lnk      : generic interface for mpp_lnk_3d and mpp_lnk_2d
    !!                  routines defined in lib_mpp
+   !!   lbc_lnk_e    : generic interface for mpp_lnk_2d_e
+   !!                   routinee defined in lib_mpp
    !!----------------------------------------------------------------------
    !! * Modules used
@@ -20 +22 @@
    END INTERFACE
 
+   INTERFACE lbc_lnk_e
+      MODULE PROCEDURE mpp_lnk_2d_e
+   END INTERFACE
+
    PUBLIC lbc_lnk       ! ocean lateral boundary conditions
+   PUBLIC lbc_lnk_e
    !!----------------------------------------------------------------------
 
@@ -45 +52 @@
    END INTERFACE
 
+   INTERFACE lbc_lnk_e
+      MODULE PROCEDURE lbc_lnk_2d
+   END INTERFACE
+
    PUBLIC lbc_lnk       ! ocean/ice  lateral boundary conditions
+   PUBLIC  lbc_lnk_e 
    !!----------------------------------------------------------------------