Changeset 1510
- Timestamp:
- 2009-07-21T09:43:22+02:00 (15 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limadv_2.F90
r1465 r1510 217 217 218 218 !-- Lateral boundary conditions 219 CALL lbc_lnk( psm , 'T', 1. )220 CALL lbc_lnk( ps0 , 'T', 1. )221 CALL lbc_lnk( psx , 'T', 1. )222 CALL lbc_lnk( psxx, 'T', 1. )223 CALL lbc_lnk( psy , 'T', 1. )224 CALL lbc_lnk( psyy, 'T', 1. )225 CALL lbc_lnk( psxy, 'T', 1. )219 CALL lbc_lnk( psm , 'T', 1. ) 220 CALL lbc_lnk( ps0 , 'T', 1. ) 221 CALL lbc_lnk( psx , 'T', -1. ) 222 CALL lbc_lnk( psxx, 'T', 1. ) 223 CALL lbc_lnk( psy , 'T', -1. ) 224 CALL lbc_lnk( psyy, 'T', 1. ) 225 CALL lbc_lnk( psxy, 'T', 1. ) 226 226 227 227 IF(ln_ctl) THEN … … 417 417 418 418 !-- Lateral boundary conditions 419 CALL lbc_lnk( psm , 'T', 1. )420 CALL lbc_lnk( ps0 , 'T', 1. )421 CALL lbc_lnk( psx , 'T', 1. )422 CALL lbc_lnk( psxx, 'T', 1. )423 CALL lbc_lnk( psy , 'T', 1. )424 CALL lbc_lnk( psyy, 'T', 1. )425 CALL lbc_lnk( psxy, 'T', 1. )419 CALL lbc_lnk( psm , 'T', 1. ) 420 CALL lbc_lnk( ps0 , 'T', 1. ) 421 CALL lbc_lnk( psx , 'T', -1. ) 422 CALL lbc_lnk( psxx, 'T', 1. ) 423 CALL lbc_lnk( psy , 'T', -1. ) 424 CALL lbc_lnk( psyy, 'T', 1. ) 425 CALL lbc_lnk( psxy, 'T', 1. ) 426 426 427 427 IF(ln_ctl) THEN -
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.