Changeset 2224 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/OBC/obctra.F90

Timestamp:

2010-10-12T16:04:22+02:00 (14 years ago)

Author:

rblod

Message:

Correct update from the trunk of DEV_r2106_LOCEAN2010

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/OBC/obctra.F90 (modified) (1 diff)

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/OBC/obctra.F90

@@ -490 +490 @@
                   zin = sign( 1., -1.* z05cx )
                   zin = 0.5*( zin + abs(zin) )
-                  ztau = (1.-zin ) + zin * rtaus
+                  ztau = (1.-zin ) * rtausin + zin * rtaus
                   z05cx = z05cx * zin
+
          !... update (ta,sa) with radiative or climatological (t, s)
                   ta(ji,jj,jk) = ta(ji,jj,jk) * (1.-tsmsk(ji,jk)) +             &