Changeset 1510 for trunk/NEMO/LIM_SRC_3/limadv.F90
- Timestamp:
- 2009-07-21T09:43:22+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limadv.F90
r1465 r1510 220 220 221 221 !-- Lateral boundary conditions 222 CALL lbc_lnk( psm , 'T', 1. )223 CALL lbc_lnk( ps0 , 'T', 1. )224 CALL lbc_lnk( psx , 'T', 1. )225 CALL lbc_lnk( psxx, 'T', 1. )226 CALL lbc_lnk( psy , 'T', 1. )227 CALL lbc_lnk( psyy, 'T', 1. )228 CALL lbc_lnk( psxy, 'T', 1. )222 CALL lbc_lnk( psm , 'T', 1. ) 223 CALL lbc_lnk( ps0 , 'T', 1. ) 224 CALL lbc_lnk( psx , 'T', -1. ) 225 CALL lbc_lnk( psxx, 'T', 1. ) 226 CALL lbc_lnk( psy , 'T', -1. ) 227 CALL lbc_lnk( psyy, 'T', 1. ) 228 CALL lbc_lnk( psxy, 'T', 1. ) 229 229 230 230 IF(ln_ctl) THEN … … 420 420 421 421 !-- Lateral boundary conditions 422 CALL lbc_lnk( psm , 'T', 1. )423 CALL lbc_lnk( ps0 , 'T', 1. )424 CALL lbc_lnk( psx , 'T', 1. )425 CALL lbc_lnk( psxx, 'T', 1. )426 CALL lbc_lnk( psy , 'T', 1. )427 CALL lbc_lnk( psyy, 'T', 1. )428 CALL lbc_lnk( psxy, 'T', 1. )422 CALL lbc_lnk( psm , 'T', 1. ) 423 CALL lbc_lnk( ps0 , 'T', 1. ) 424 CALL lbc_lnk( psx , 'T', -1. ) 425 CALL lbc_lnk( psxx, 'T', 1. ) 426 CALL lbc_lnk( psy , 'T', -1. ) 427 CALL lbc_lnk( psyy, 'T', 1. ) 428 CALL lbc_lnk( psxy, 'T', 1. ) 429 429 430 430 IF(ln_ctl) THEN
Note: See TracChangeset
for help on using the changeset viewer.