- Timestamp:
- 2012-04-02T13:05:35+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90
r2442 r3340 55 55 56 56 INTERFACE lbc_lnk_e 57 MODULE PROCEDURE lbc_lnk_2d 57 MODULE PROCEDURE lbc_lnk_2d_e 58 58 END INTERFACE 59 59 … … 270 270 END SUBROUTINE lbc_lnk_2d 271 271 272 SUBROUTINE lbc_lnk_2d_e( pt2d, cd_type, psgn, jpri, jprj ) 273 !!--------------------------------------------------------------------- 274 !! *** ROUTINE lbc_lnk_2d *** 275 !! 276 !! ** Purpose : set lateral boundary conditions on a 2D array (non mpp case) 277 !! special dummy routine to allow for use of halo indexing in mpp case 278 !! 279 !! ** Method : psign = -1 : change the sign across the north fold 280 !! = 1 : no change of the sign across the north fold 281 !! = 0 : no change of the sign across the north fold and 282 !! strict positivity preserved: use inner row/column 283 !! for closed boundaries. 284 !!---------------------------------------------------------------------- 285 CHARACTER(len=1) , INTENT(in ) :: cd_type ! nature of pt3d grid-points 286 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pt2d ! 2D array on which the lbc is applied 287 REAL(wp) , INTENT(in ) :: psgn ! control of the sign 288 INTEGER , INTENT(in ) :: jpri ! size of extra halo (not needed in non-mpp) 289 INTEGER , INTENT(in ) :: jprj ! size of extra halo (not needed in non-mpp) 290 !!---------------------------------------------------------------------- 291 292 CALL lbc_lnk_2d( pt2d, cd_type, psgn ) 293 ! 294 END SUBROUTINE lbc_lnk_2d_e 295 272 296 #endif 273 297
Note: See TracChangeset
for help on using the changeset viewer.