Changeset 1726

Timestamp:

2009-11-12T17:43:26+01:00 (14 years ago)

Author:

smasson

Message:

force taum > 0 in coupled mode, see ticket:598

File:

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

trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -667 +667 @@
       ELSE
          llnewtau = nrcvinfo(jpr_taum) == OASIS_Rcv
+         ! Stress module can be negative when received (interpolation problem)
+         IF( llnewtau ) THEN 
+            DO jj = 1, jpj
+               DO ji = 1, jpi 
+                  frcv(ji,jj,jpr_taum) = MAX( 0.0e0, frcv(ji,jj,jpr_taum) )
+               END DO
+            END DO
+         ENDIF
       ENDIF