Changes between Version 56 and Version 57 of user/ctlod/NewSurfaceModule

Timestamp:

2008-03-19T10:07:13+01:00 (16 years ago)

Author:

ctlod

Comment:

--

user/ctlod/NewSurfaceModule

@@ -16 +16 @@
 '''* FULL_SDP10''':[[BR]]
 Both for NEW_SBC & REF_CORE: follow SDP9 BUT with ln_limdyn=.FALSE.[[BR]]
+This time the SSS damping is active AND ust2s(:,:) below is set to ZERO in both experiment since is seems to have a non negligeble impact (a minimum value is used 5.e-3)[[BR]]
 Modifications in the REF_CORE limdyn.F90 and ocesbc.F90:[[BR]]
 limdyn.F90:[[BR]]
@@ -34 +35 @@
 !CT SDP10               ust2s(ji,jj) = ( zustm / rau0 ) * ( rone + sdvt(ji,jj) ) * tms(ji,jj)
 !CT end SDP10
+
+               ust2s(:,:) = 0.e0
 }}}
 ocesbc.F90: add the logical ln_limdyn to avoid modifications of the ocean stress tau[xy].[[BR]]
-NOTICE: in the case ln_limdyn=FALSE, the friction velocity is computed (in limdyn.F90) in using the wind stress [[BR]]
+[[Color(white,red, NOTICE: in the case ln_limdyn=FALSE, the friction velocity is computed (in limdyn.F90) in using the wind stress [[BR]]
 [uv]tau over the ocean, which are themselves computed in using the wind module zwind_speed_t(:,:) in sbcblk_core.F90 [[BR]]
-which MUST NOT BE MASKED whit tmask(:,:,:) field else big differences will occur along the coast in polar regions. [[BR]]
+which MUST NOT BE MASKED whit tmask(:,:,:) field else big differences will occur along the coast in polar regions.)]] [[BR]]