Changeset 1833 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2010-04-13T19:44:52+02:00 (14 years ago)

Author:

smasson

Message:

solve NP-folding bug on stress in coupled model, see ticket:660

File:

• trunk/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -274 +274 @@
       srcv(jpr_itz2)%clname = 'O_ITauz2'      ! 3rd   -      -         -     - 
       ! 
-      srcv(jpr_otx1:jpr_itz2)%nsgn = -1                           ! Vectors: change of sign at north fold
+      ! Vectors: change of sign at north fold ONLY if on the local grid
+      IF( TRIM( cn_rcv_tau(3) ) == 'local grid' )   srcv(jpr_otx1:jpr_itz2)%nsgn = -1.
       
       !                                                           ! Set grid and action