- Timestamp:
- 2013-12-06T11:25:13+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90
r4153 r4328 19 19 !! lbc_lnk_e : generic interface for mpp_lnk_2d_e routine defined in lib_mpp 20 20 !! lbc_bdy_lnk : generic interface for mpp_lnk_bdy_2d and mpp_lnk_bdy_3d routines defined in lib_mpp 21 !! lbc_obc_lnk : generic interface for mpp_lnk_obc_2d and mpp_lnk_obc_3d routines defined in lib_mpp22 21 !!---------------------------------------------------------------------- 23 22 USE lib_mpp ! distributed memory computing library … … 29 28 INTERFACE lbc_bdy_lnk 30 29 MODULE PROCEDURE mpp_lnk_bdy_2d, mpp_lnk_bdy_3d 31 END INTERFACE32 INTERFACE lbc_obc_lnk33 MODULE PROCEDURE mpp_lnk_obc_2d, mpp_lnk_obc_3d34 30 END INTERFACE 35 31 … … 41 37 PUBLIC lbc_lnk_e 42 38 PUBLIC lbc_bdy_lnk ! ocean lateral BDY boundary conditions 43 PUBLIC lbc_obc_lnk ! ocean lateral BDY boundary conditions44 39 45 40 !!---------------------------------------------------------------------- … … 57 52 !! lbc_lnk_2d : set the lateral boundary condition on a 2D variable on ocean mesh 58 53 !! lbc_bdy_lnk : set the lateral BDY boundary condition 59 !! lbc_obc_lnk : set the lateral OBC boundary condition60 54 !!---------------------------------------------------------------------- 61 55 USE oce ! ocean dynamics and tracers … … 78 72 MODULE PROCEDURE lbc_bdy_lnk_2d, lbc_bdy_lnk_3d 79 73 END INTERFACE 80 INTERFACE lbc_obc_lnk81 MODULE PROCEDURE lbc_lnk_2d, lbc_lnk_3d82 END INTERFACE83 74 84 75 PUBLIC lbc_lnk ! ocean/ice lateral boundary conditions 85 76 PUBLIC lbc_lnk_e 86 77 PUBLIC lbc_bdy_lnk ! ocean lateral BDY boundary conditions 87 PUBLIC lbc_obc_lnk ! ocean lateral OBC boundary conditions88 78 89 79 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.