Changes between Version 48 and Version 49 of user/ctlod/NewSurfaceModule

Timestamp:

2008-02-28T16:38:41+01:00 (16 years ago)

Author:

ctlod

Comment:

--

user/ctlod/NewSurfaceModule

@@ -13 +13 @@
 
 '''EXPERIENCES DESCRIPTION:'''[[BR]]
+== '''FULL_SDP8''': ==
+'''* FULL_SDP8''':[[BR]]
+Only for NEW_SBC: correct a bug found in limsbc.F90[[BR]]
+{{{
+         DO jj = 2, jpjm1
+            DO ji = fs_2, fs_jpim1   ! vertor opt.
+               ! ... ice-cover wheighted ice-ocean stress at U and V-points  (from I-point values)
+               zutau  = 0.5 * ( ztio_u(ji+1,jj) + ztio_u(ji+1,jj+1) )
+!CT start SDP9
+               zvtau  = 0.5 * ( ztio_v(ji,jj+1) + ztio_v(ji+1,jj+1) )
+!CT               zvtau  = 0.5 * ( ztio_v(ji,jj+1) + ztio_u(ji+1,jj+1) )
+!CT end SDP9
+               ! ... open-ocean (lead) fraction at U- & V-points (from T-point values)
+               zfrldu = 0.5 * ( frld (ji,jj) + frld (ji+1,jj  ) )
+               zfrldv = 0.5 * ( frld (ji,jj) + frld (ji  ,jj+1) )
+               ! update surface ocean stress
+               utau(ji,jj) = zfrldu * utau(ji,jj) + ( 1. - zfrldu ) * zutau
+               vtau(ji,jj) = zfrldv * vtau(ji,jj) + ( 1. - zfrldv ) * zvtau
+               !
+            END DO
+         END DO
+}}}
+This could certainly explain the differences in the final meridionnal ocean stress between NEW_SBC and REF_CORE.[[BR]]
+And also patterns on the ocean velocities in both directions under sea-ice.[[BR]]
+
+----
+
+
+== '''FULL_SDP8''': ==
+'''* FULL_SDP8''':[[BR]]
+REF_CORE & NEW_SBC: nothing change, output only instantaneous fields.
+----
+
 == '''FULL_SDP7''': ==
 '''* FULL_SDP7''':[[BR]]