Changeset 10679 for NEMO/branches/2019/fix_ticket2238_solution2/src/OCE/LBC/lbclnk.F90

Timestamp:

2019-02-14T14:11:43+01:00 (5 years ago)

Author:

mathiot

Message:

branch for solution 2 of ticket #2238

Location:

NEMO/branches/2019/fix_ticket2238_solution2

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/LBC/lbclnk.F90 (modified) (3 diffs)

NEMO/branches/2019/fix_ticket2238_solution2/src/OCE/LBC/lbclnk.F90

@@ -41 +41 @@
    END INTERFACE
    !
-   INTERFACE lbc_lnk_icb
-      MODULE PROCEDURE mpp_lnk_2d_icb
-   END INTERFACE
 
    PUBLIC   lbc_lnk       ! ocean/ice lateral boundary conditions
    PUBLIC   lbc_lnk_multi ! modified ocean/ice lateral boundary conditions
    PUBLIC   lbc_bdy_lnk   ! ocean lateral BDY boundary conditions
-   PUBLIC   lbc_lnk_icb   ! iceberg lateral boundary conditions
 
    !!----------------------------------------------------------------------
@@ -93 +89 @@
    END INTERFACE
    !
-   INTERFACE lbc_lnk_icb
-      MODULE PROCEDURE lbc_lnk_2d_icb
-   END INTERFACE
    
    PUBLIC   lbc_lnk       ! ocean/ice  lateral boundary conditions
    PUBLIC   lbc_lnk_multi ! modified ocean/ice lateral boundary conditions
    PUBLIC   lbc_bdy_lnk   ! ocean lateral BDY boundary conditions
-   PUBLIC   lbc_lnk_icb   ! iceberg lateral boundary conditions
    
    !!----------------------------------------------------------------------
@@ -214 +206 @@
 
 
-!!gm  This routine should be removed with an optional halos size added in argument of generic routines
-
-   SUBROUTINE lbc_lnk_2d_icb( cdname, pt2d, cd_type, psgn, ki, kj )
-      !!----------------------------------------------------------------------
-      CHARACTER(len=*)        , INTENT(in   ) ::   cdname      ! name of the calling subroutine
-      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   pt2d      ! 2D array on which the lbc is applied
-      CHARACTER(len=1)        , INTENT(in   ) ::   cd_type   ! nature of pt3d grid-points
-      REAL(wp)                , INTENT(in   ) ::   psgn      ! sign used across north fold 
-      INTEGER                 , INTENT(in   ) ::   ki, kj    ! sizes of extra halo (not needed in non-mpp)
-      !!----------------------------------------------------------------------
-      CALL lbc_lnk_2d( cdname, pt2d, cd_type, psgn )
-   END SUBROUTINE lbc_lnk_2d_icb
-!!gm end
 
 #endif