- Timestamp:
- 2014-02-04T13:14:38+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90
r3432 r4434 190 190 191 191 ! 192 #if defined key_mpp_rkpart192 !#if defined key_mpp_rkpart 193 193 ! Is quicker to pack halo-swaps for 2D fields than to do them 194 194 ! individually 195 CALL add_exch(jpreci,'U',Iminus,Jminus,Iplus,Jplus,ua_e,isgn=-1)196 CALL add_exch(jpreci,'V',Iminus,Jminus,Iplus,Jplus,va_e,isgn=-1)197 CALL bound_exch_list()198 #else195 ! CALL add_exch(jpreci,'U',Iminus,Jminus,Iplus,Jplus,ua_e,isgn=-1) 196 ! CALL add_exch(jpreci,'V',Iminus,Jminus,Iplus,Jplus,va_e,isgn=-1) 197 ! CALL bound_exch_list() 198 !#else 199 199 CALL lbc_lnk( ua_e, 'U', -1. ) ! Boundary points should be updated 200 200 CALL lbc_lnk( va_e, 'V', -1. ) ! 201 #endif201 !#endif 202 202 ! 203 203 ENDIF ! ln_dyn_fla .or. ln_tides
Note: See TracChangeset
for help on using the changeset viewer.