New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10233 for NEMO – NEMO

Changeset 10233 for NEMO


Ignore:
Timestamp:
2018-10-26T15:59:22+02:00 (5 years ago)
Author:
smueller
Message:

Extension of non-MPP version of generic procedure lbc_bdy_lnk for use with 4-dimensional arrays; see ticket #2141.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/lbclnk.F90

    r10068 r10233  
    9090   ! 
    9191   INTERFACE lbc_bdy_lnk 
    92       MODULE PROCEDURE lbc_bdy_lnk_2d, lbc_bdy_lnk_3d 
     92      MODULE PROCEDURE lbc_bdy_lnk_2d, lbc_bdy_lnk_3d, lbc_bdy_lnk_4d 
    9393   END INTERFACE 
    9494   ! 
     
    173173 
    174174   !!---------------------------------------------------------------------- 
    175    !!                   ***  routine lbc_bdy_lnk_(2,3)d  *** 
     175   !!                   ***  routine lbc_bdy_lnk_(2,3,4)d  *** 
    176176   !! 
    177177   !!   wrapper rountine to 'lbc_lnk_3d'. This wrapper is used 
     
    179179   !!---------------------------------------------------------------------- 
    180180    
     181   SUBROUTINE lbc_bdy_lnk_4d( pt4d, cd_type, psgn, ib_bdy ) 
     182      !!---------------------------------------------------------------------- 
     183      REAL(wp), DIMENSION(:,:,:,:), INTENT(inout) ::   pt4d      ! 4D array on which the lbc is applied 
     184      CHARACTER(len=1)            , INTENT(in   ) ::   cd_type   ! nature of pt4d grid-points 
     185      REAL(wp)                    , INTENT(in   ) ::   psgn      ! sign used across north fold  
     186      INTEGER                     , INTENT(in   ) ::   ib_bdy    ! BDY boundary set 
     187      !!---------------------------------------------------------------------- 
     188      CALL lbc_lnk_4d( pt4d, cd_type, psgn) 
     189   END SUBROUTINE lbc_bdy_lnk_4d 
     190 
    181191   SUBROUTINE lbc_bdy_lnk_3d( pt3d, cd_type, psgn, ib_bdy ) 
    182192      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.