Changeset 1516
- Timestamp:
- 2009-07-21T17:30:31+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynvor.F90
r1438 r1516 584 584 END DO 585 585 END DO 586 CASE ( 4 ) ! total (relative + planetary vorticity) 586 CALL lbc_lnk( zwz, 'F', 1. ) 587 CASE ( 4 ) ! total (relative + planetary vorticity) 587 588 zwz(:,:) = ( rotn(:,:,jk) + ff(:,:) ) * ze3f(:,:,jk) 588 589 CASE ( 5 ) ! total (coriolis + metric) … … 596 597 END DO 597 598 END DO 599 CALL lbc_lnk( zwz, 'F', 1. ) 598 600 END SELECT 599 601
Note: See TracChangeset
for help on using the changeset viewer.