- Timestamp:
- 2013-11-05T13:25:45+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90
r4152 r4153 281 281 END SUBROUTINE lbc_lnk_3d 282 282 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 used288 !! to maintain the same interface with regards to the mpp case289 !!290 !!----------------------------------------------------------------------291 CHARACTER(len=1) , INTENT(in ) :: cd_type ! nature of pt3d grid-points292 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: pt3d ! 3D array on which the lbc is applied293 REAL(wp) , INTENT(in ) :: psgn ! control of the sign294 INTEGER :: ib_bdy ! BDY boundary set295 !!296 CALL lbc_lnk_3d( pt3d, cd_type, psgn)297 298 END SUBROUTINE lbc_bdy_lnk_3d299 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 used305 !! to maintain the same interface with regards to the mpp case306 !!307 !!----------------------------------------------------------------------308 CHARACTER(len=1) , INTENT(in ) :: cd_type ! nature of pt3d grid-points309 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pt2d ! 3D array on which the lbc is applied310 REAL(wp) , INTENT(in ) :: psgn ! control of the sign311 INTEGER :: ib_bdy ! BDY boundary set312 !!313 CALL lbc_lnk_2d( pt2d, cd_type, psgn)314 315 END SUBROUTINE lbc_bdy_lnk_2d316 317 283 SUBROUTINE lbc_lnk_2d( pt2d, cd_type, psgn, cd_mpp, pval ) 318 284 !!--------------------------------------------------------------------- … … 401 367 END SUBROUTINE lbc_lnk_2d 402 368 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 403 409 SUBROUTINE lbc_lnk_2d_e( pt2d, cd_type, psgn, jpri, jprj ) 404 410 !!--------------------------------------------------------------------- … … 425 431 END SUBROUTINE lbc_lnk_2d_e 426 432 427 # endif428 433 #endif 429 434
Note: See TracChangeset
for help on using the changeset viewer.