Changeset 1740

Timestamp:

2009-11-19T14:43:56+01:00 (14 years ago)

Author:

rblod

Message:

Sign error in bdy, see ticket #562

Location:

trunk/NEMO/OPA_SRC

Files:

• BDY/bdydyn.F90 (modified) (1 diff)
• DYN/dynnxt.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/BDY/bdydyn.F90

@@ -167 +167 @@
             va_e(ii,ij) = zforc + zcorr * vmask(ii,ij,1)
          END DO
-         CALL lbc_lnk( ua_e, 'U', 1. )   ! Boundary points should be updated
-         CALL lbc_lnk( va_e, 'V', 1. )   !
          !
       ENDIF ! ln_bdy_dyn_fla .or. ln_bdy_tides

trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -165 +165 @@
 # elif defined key_bdy 
       !                                !* BDY open boundaries
+      !RB all this part should be in a specific routine
       IF( lk_dynspg_exp .OR. lk_dynspg_ts ) THEN       ! except for filtered option
          !
@@ -187 +188 @@
             CALL bdy_dta_bt( kt+1, 0)
             CALL bdy_dyn_fla( sshn_b )
+            CALL lbc_lnk( ua_e, 'U', -1. )   ! Boundary points should be updated
+            CALL lbc_lnk( va_e, 'V', -1. )   !
             DO jk = 1 , jpkm1
                ua(:,:,jk) = ( ua(:,:,jk) + ua_e(:,:) ) * umask(:,:,jk)