- 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/obctra.F90
r3294 r3592 4 4 !! Ocean tracers: Radiation of tracers on each open boundary 5 5 !!================================================================================= 6 !! History : 3.5 ! 2012 (S. Mocavero, I. Epicoco) Updates for the 7 !! optimization of OBC communications 6 8 #if defined key_obc 7 9 !!--------------------------------------------------------------------------------- … … 101 103 IF( lk_mpp ) THEN !!bug ??? 102 104 IF( kt >= nit000+3 .AND. ln_rstart ) THEN 103 CALL lbc_ lnk( tsb(:,:,:,jp_tem), 'T', 1. )104 CALL lbc_ lnk( tsb(:,:,:,jp_sal), 'T', 1. )105 CALL lbc_obc_lnk( tsb(:,:,:,jp_tem), 'T', 1. ) 106 CALL lbc_obc_lnk( tsb(:,:,:,jp_sal), 'T', 1. ) 105 107 END IF 106 CALL lbc_ lnk( tsa(:,:,:,jp_tem), 'T', 1. )107 CALL lbc_ lnk( tsa(:,:,:,jp_sal), 'T', 1. )108 CALL lbc_obc_lnk( tsa(:,:,:,jp_tem), 'T', 1. ) 109 CALL lbc_obc_lnk( tsa(:,:,:,jp_sal), 'T', 1. ) 108 110 ENDIF 109 111
Note: See TracChangeset
for help on using the changeset viewer.