Changeset 4434


Ignore:
Timestamp:
2014-02-04T13:14:38+01:00 (7 years ago)
Author:
trackstand2
Message:

Removed erroneous use of bound_exch_list in bdy_dyn_fla

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90

    r3432 r4434  
    190190 
    191191         ! 
    192 #if defined key_mpp_rkpart 
     192!#if defined key_mpp_rkpart 
    193193         ! Is quicker to pack halo-swaps for 2D fields than to do them 
    194194         ! 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 #else 
     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!#else 
    199199         CALL lbc_lnk( ua_e, 'U', -1. )   ! Boundary points should be updated 
    200200         CALL lbc_lnk( va_e, 'V', -1. )   ! 
    201 #endif 
     201!#endif 
    202202         ! 
    203203      ENDIF ! ln_dyn_fla .or. ln_tides 
Note: See TracChangeset for help on using the changeset viewer.