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 4153 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90 – NEMO

Ignore:
Timestamp:
2013-11-05T13:25:45+01:00 (10 years ago)
Author:
cetlod
Message:

dev_LOCEAN_2013: merge in trunk changes between r3940 and r4028, see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90

    r4152 r4153  
    281281   END SUBROUTINE lbc_lnk_3d 
    282282 
    283    SUBROUTINE lbc_bdy_lnk_3d( pt3d, cd_type, psgn, ib_bdy ) 
    284       !!--------------------------------------------------------------------- 
    285       !!                  ***  ROUTINE lbc_bdy_lnk  *** 
    286       !! 
    287       !! ** Purpose :   wrapper rountine to 'lbc_lnk_3d'. This wrapper is used 
    288       !!                to maintain the same interface with regards to the mpp case 
    289       !! 
    290       !!---------------------------------------------------------------------- 
    291       CHARACTER(len=1)                , INTENT(in   )           ::   cd_type   ! nature of pt3d grid-points 
    292       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout)           ::   pt3d      ! 3D array on which the lbc is applied 
    293       REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
    294       INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
    295       !! 
    296       CALL lbc_lnk_3d( pt3d, cd_type, psgn) 
    297  
    298    END SUBROUTINE lbc_bdy_lnk_3d 
    299  
    300    SUBROUTINE lbc_bdy_lnk_2d( pt2d, cd_type, psgn, ib_bdy ) 
    301       !!--------------------------------------------------------------------- 
    302       !!                  ***  ROUTINE lbc_bdy_lnk  *** 
    303       !! 
    304       !! ** Purpose :   wrapper rountine to 'lbc_lnk_3d'. This wrapper is used 
    305       !!                to maintain the same interface with regards to the mpp case 
    306       !! 
    307       !!---------------------------------------------------------------------- 
    308       CHARACTER(len=1)                , INTENT(in   )           ::   cd_type   ! nature of pt3d grid-points 
    309       REAL(wp), DIMENSION(jpi,jpj),     INTENT(inout)           ::   pt2d      ! 3D array on which the lbc is applied 
    310       REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
    311       INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
    312       !! 
    313       CALL lbc_lnk_2d( pt2d, cd_type, psgn) 
    314  
    315    END SUBROUTINE lbc_bdy_lnk_2d 
    316  
    317283   SUBROUTINE lbc_lnk_2d( pt2d, cd_type, psgn, cd_mpp, pval ) 
    318284      !!--------------------------------------------------------------------- 
    … …  
    401367   END SUBROUTINE lbc_lnk_2d 
    402368 
     369#endif 
     370 
     371 
     372   SUBROUTINE lbc_bdy_lnk_3d( pt3d, cd_type, psgn, ib_bdy ) 
     373      !!--------------------------------------------------------------------- 
     374      !!                  ***  ROUTINE lbc_bdy_lnk  *** 
     375      !! 
     376      !! ** Purpose :   wrapper rountine to 'lbc_lnk_3d'. This wrapper is used 
     377      !!                to maintain the same interface with regards to the mpp 
     378      !case 
     379      !! 
     380      !!---------------------------------------------------------------------- 
     381      CHARACTER(len=1)                , INTENT(in   )           ::   cd_type   ! nature of pt3d grid-points 
     382      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout)           ::   pt3d      ! 3D array on which the lbc is applied 
     383      REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
     384      INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
     385      !! 
     386      CALL lbc_lnk_3d( pt3d, cd_type, psgn) 
     387 
     388   END SUBROUTINE lbc_bdy_lnk_3d 
     389 
     390   SUBROUTINE lbc_bdy_lnk_2d( pt2d, cd_type, psgn, ib_bdy ) 
     391      !!--------------------------------------------------------------------- 
     392      !!                  ***  ROUTINE lbc_bdy_lnk  *** 
     393      !! 
     394      !! ** Purpose :   wrapper rountine to 'lbc_lnk_3d'. This wrapper is used 
     395      !!                to maintain the same interface with regards to the mpp 
     396      !case 
     397      !! 
     398      !!---------------------------------------------------------------------- 
     399      CHARACTER(len=1)                , INTENT(in   )           ::   cd_type   ! nature of pt3d grid-points 
     400      REAL(wp), DIMENSION(jpi,jpj),     INTENT(inout)           ::   pt2d      ! 3D array on which the lbc is applied 
     401      REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign  
     402      INTEGER                                                   ::   ib_bdy    ! BDY boundary set 
     403      !! 
     404      CALL lbc_lnk_2d( pt2d, cd_type, psgn) 
     405 
     406   END SUBROUTINE lbc_bdy_lnk_2d 
     407 
     408 
    403409   SUBROUTINE lbc_lnk_2d_e( pt2d, cd_type, psgn, jpri, jprj ) 
    404410      !!--------------------------------------------------------------------- 
    … …  
    425431   END SUBROUTINE lbc_lnk_2d_e 
    426432 
    427 # endif 
    428433#endif 
    429434 
Note: See TracChangeset for help on using the changeset viewer.