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 10843 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/LBC – NEMO

Ignore:
Timestamp:
2019-04-05T16:01:32+02:00 (5 years ago)
Author:
andmirek
Message:

ticket #2197 merge with dev_r9950_GO8_package at 10320

Location:
NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/LBC
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/LBC/lbclnk.F90

    r9950 r10843  
    5353   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    5454   !! $Id$ 
    55    !! Software governed by the CeCILL licence     (./LICENSE) 
     55   !! Software governed by the CeCILL license (see ./LICENSE) 
    5656   !!---------------------------------------------------------------------- 
    5757CONTAINS 
    … …  
    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   ! 
    … …  
    105105   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    106106   !! $Id$ 
    107    !! Software governed by the CeCILL licence     (./LICENSE) 
     107   !! Software governed by the CeCILL license (see ./LICENSE) 
    108108   !!---------------------------------------------------------------------- 
    109109CONTAINS 
    … …  
    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      !!---------------------------------------------------------------------- 

  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/LBC/lbcnfd.F90

    r9950 r10843  
    5858   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    5959   !! $Id$ 
    60    !! Software governed by the CeCILL licence     (./LICENSE) 
     60   !! Software governed by the CeCILL license (see ./LICENSE) 
    6161   !!---------------------------------------------------------------------- 
    6262CONTAINS 

  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/LBC/lib_mpp.F90

    r9950 r10843  
    172172   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    173173   !! $Id$ 
    174    !! Software governed by the CeCILL licence     (./LICENSE) 
     174   !! Software governed by the CeCILL license (see ./LICENSE) 
    175175   !!---------------------------------------------------------------------- 
    176176CONTAINS 

  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/LBC/mppini.F90

    r9950 r10843  
    3939   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    4040   !! $Id$ 
    41    !! Software governed by the CeCILL licence     (./LICENSE) 
     41   !! Software governed by the CeCILL license (see ./LICENSE) 
    4242   !!---------------------------------------------------------------------- 
    4343CONTAINS 
Note: See TracChangeset for help on using the changeset viewer.