- Timestamp:
- 2012-11-19T12:39:00+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3365_CMCC1_BDYOBCopt/NEMOGCM/NEMO/OPA_SRC/OBC/obcdyn.F90
r3294 r3592 5 5 !! Ocean dynamics: Radiation of velocities on each open boundary 6 6 !!================================================================================= 7 7 !! History : 3.5 ! 2012 (S. Mocavero, I. Epicoco) Updates for the 8 !! optimization of OBC communications 8 9 !!--------------------------------------------------------------------------------- 9 10 !! obc_dyn : call the subroutine for each open boundary … … 105 106 IF( lk_mpp ) THEN 106 107 IF( kt >= nit000+3 .AND. ln_rstart ) THEN 107 CALL lbc_ lnk( ub, 'U', -1. )108 CALL lbc_ lnk( vb, 'V', -1. )108 CALL lbc_obc_lnk( ub, 'U', -1. ) 109 CALL lbc_obc_lnk( vb, 'V', -1. ) 109 110 END IF 110 CALL lbc_ lnk( ua, 'U', -1. )111 CALL lbc_ lnk( va, 'V', -1. )111 CALL lbc_obc_lnk( ua, 'U', -1. ) 112 CALL lbc_obc_lnk( va, 'V', -1. ) 112 113 ENDIF 113 114
Note: See TracChangeset
for help on using the changeset viewer.