- Timestamp:
- 2011-07-13T15:31:05+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r2797 r2800 466 466 ! ! ----------------------- 467 467 ! OBC open boundaries 468 IF( lk_obc .OR. ln_tides ) CALL obc_dyn2d( kt, sshn_e ) 468 #if defined key_obc 469 pssh => sshn_e 470 phur => hur_e 471 phvr => hvr_e 472 pu2d => ua_e 473 pv2d => va_e 474 475 IF( lk_obc ) CALL obc_dyn2d( kt ) 476 #endif 477 469 478 ! 470 479 CALL lbc_lnk( ua_e , 'U', -1. ) ! local domain boundaries
Note: See TracChangeset
for help on using the changeset viewer.