Changeset 1469 for trunk/NEMO/LIM_SRC_3/limthd_lac.F90

Timestamp:

2009-06-11T14:20:08+02:00 (15 years ago)

Author:

smasson

Message:

[uv]taui_ice renamed [uv]tau_ice, see ticket:452

File:

• trunk/NEMO/LIM_SRC_3/limthd_lac.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/limthd_lac.F90

@@ -265 +265 @@
                   !-------------
                   ! C-grid wind stress components
-                  ztaux         = ( utaui_ice(ji-1,jj  ) * tmu(ji-1,jj  ) &
-                     +   utaui_ice(ji  ,jj  ) * tmu(ji  ,jj  ) ) / 2.0
-                  ztauy         = ( vtaui_ice(ji  ,jj-1) * tmv(ji  ,jj-1) &
-                     +   vtaui_ice(ji  ,jj  ) * tmv(ji  ,jj  ) ) / 2.0
+                  ztaux         = ( utau_ice(ji-1,jj  ) * tmu(ji-1,jj  ) &
+                     &          +   utau_ice(ji  ,jj  ) * tmu(ji  ,jj  ) ) / 2.0
+                  ztauy         = ( vtau_ice(ji  ,jj-1) * tmv(ji  ,jj-1) &
+                     &          +   vtau_ice(ji  ,jj  ) * tmv(ji  ,jj  ) ) / 2.0
                   ! Square root of wind stress
                   ztenagm       =  SQRT( SQRT( ztaux * ztaux + ztauy * ztauy ) )