Changeset 4434 for branches

Timestamp:

2014-02-04T13:14:38+01:00 (10 years ago)

Author:

trackstand2

Message:

Removed erroneous use of bound_exch_list in bdy_dyn_fla

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90

@@ -190 +190 @@
 
          !
-#if defined key_mpp_rkpart
+!#if defined key_mpp_rkpart
          ! Is quicker to pack halo-swaps for 2D fields than to do them
          ! individually
-         CALL add_exch(jpreci,'U',Iminus,Jminus,Iplus,Jplus,ua_e,isgn=-1)
-         CALL add_exch(jpreci,'V',Iminus,Jminus,Iplus,Jplus,va_e,isgn=-1)
-         CALL bound_exch_list()
-#else
+!         CALL add_exch(jpreci,'U',Iminus,Jminus,Iplus,Jplus,ua_e,isgn=-1)
+!         CALL add_exch(jpreci,'V',Iminus,Jminus,Iplus,Jplus,va_e,isgn=-1)
+!         CALL bound_exch_list()
+!#else
          CALL lbc_lnk( ua_e, 'U', -1. )   ! Boundary points should be updated
          CALL lbc_lnk( va_e, 'V', -1. )   !
-#endif
+!#endif
          !
       ENDIF ! ln_dyn_fla .or. ln_tides