Changeset 1510 for trunk/NEMO/LIM_SRC_2

Timestamp:

2009-07-21T09:43:22+02:00 (15 years ago)

Author:

ctlod

Message:

wrong sign in lbc_lnk for psx and psy gradients, see ticket: #364

File:

• trunk/NEMO/LIM_SRC_2/limadv_2.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limadv_2.F90

@@ -217 +217 @@
 
       !-- Lateral boundary conditions
-      CALL lbc_lnk( psm , 'T', 1. )
-      CALL lbc_lnk( ps0 , 'T', 1. )
-      CALL lbc_lnk( psx , 'T', 1. )
-      CALL lbc_lnk( psxx, 'T', 1. )
-      CALL lbc_lnk( psy , 'T', 1. )
-      CALL lbc_lnk( psyy, 'T', 1. )
-      CALL lbc_lnk( psxy, 'T', 1. )
+      CALL lbc_lnk( psm , 'T',  1. )
+      CALL lbc_lnk( ps0 , 'T',  1. )
+      CALL lbc_lnk( psx , 'T', -1. )
+      CALL lbc_lnk( psxx, 'T',  1. )
+      CALL lbc_lnk( psy , 'T', -1. )
+      CALL lbc_lnk( psyy, 'T',  1. )
+      CALL lbc_lnk( psxy, 'T',  1. )
 
       IF(ln_ctl)   THEN
@@ -417 +417 @@
 
       !-- Lateral boundary conditions
-      CALL lbc_lnk( psm , 'T', 1. )
-      CALL lbc_lnk( ps0 , 'T', 1. )
-      CALL lbc_lnk( psx , 'T', 1. )
-      CALL lbc_lnk( psxx, 'T', 1. )
-      CALL lbc_lnk( psy , 'T', 1. )
-      CALL lbc_lnk( psyy, 'T', 1. )
-      CALL lbc_lnk( psxy, 'T', 1. )
+      CALL lbc_lnk( psm , 'T',  1. )
+      CALL lbc_lnk( ps0 , 'T',  1. )
+      CALL lbc_lnk( psx , 'T', -1. )
+      CALL lbc_lnk( psxx, 'T',  1. )
+      CALL lbc_lnk( psy , 'T', -1. )
+      CALL lbc_lnk( psyy, 'T',  1. )
+      CALL lbc_lnk( psxy, 'T',  1. )
 
       IF(ln_ctl) THEN