- Timestamp:
- 2019-02-14T14:11:43+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/fix_ticket2238_solution2
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_ticket2238_solution2/src/OCE/LBC/lbclnk.F90
r10425 r10679 41 41 END INTERFACE 42 42 ! 43 INTERFACE lbc_lnk_icb44 MODULE PROCEDURE mpp_lnk_2d_icb45 END INTERFACE46 43 47 44 PUBLIC lbc_lnk ! ocean/ice lateral boundary conditions 48 45 PUBLIC lbc_lnk_multi ! modified ocean/ice lateral boundary conditions 49 46 PUBLIC lbc_bdy_lnk ! ocean lateral BDY boundary conditions 50 PUBLIC lbc_lnk_icb ! iceberg lateral boundary conditions51 47 52 48 !!---------------------------------------------------------------------- … … 93 89 END INTERFACE 94 90 ! 95 INTERFACE lbc_lnk_icb96 MODULE PROCEDURE lbc_lnk_2d_icb97 END INTERFACE98 91 99 92 PUBLIC lbc_lnk ! ocean/ice lateral boundary conditions 100 93 PUBLIC lbc_lnk_multi ! modified ocean/ice lateral boundary conditions 101 94 PUBLIC lbc_bdy_lnk ! ocean lateral BDY boundary conditions 102 PUBLIC lbc_lnk_icb ! iceberg lateral boundary conditions103 95 104 96 !!---------------------------------------------------------------------- … … 214 206 215 207 216 !!gm This routine should be removed with an optional halos size added in argument of generic routines217 218 SUBROUTINE lbc_lnk_2d_icb( cdname, pt2d, cd_type, psgn, ki, kj )219 !!----------------------------------------------------------------------220 CHARACTER(len=*) , INTENT(in ) :: cdname ! name of the calling subroutine221 REAL(wp), DIMENSION(:,:), INTENT(inout) :: pt2d ! 2D array on which the lbc is applied222 CHARACTER(len=1) , INTENT(in ) :: cd_type ! nature of pt3d grid-points223 REAL(wp) , INTENT(in ) :: psgn ! sign used across north fold224 INTEGER , INTENT(in ) :: ki, kj ! sizes of extra halo (not needed in non-mpp)225 !!----------------------------------------------------------------------226 CALL lbc_lnk_2d( cdname, pt2d, cd_type, psgn )227 END SUBROUTINE lbc_lnk_2d_icb228 !!gm end229 208 230 209 #endif
Note: See TracChangeset
for help on using the changeset viewer.