Changeset 1000 for trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90

Timestamp:

2008-05-30T11:22:27+02:00 (16 years ago)

Author:

cetlod

Message:

computation of wind speed module, see ticket:164

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -247 +247 @@
       !      0   Wind components and module at T-point relative to the moving ocean   !
       ! ----------------------------------------------------------------------------- !
+
+      ! Store the wind speed U10m
+!CDIR NOVERRCHK
+!CDIR COLLAPSE
+      DO jj = 1, jpj
+         DO ji = 1, jpi   ! vect. opt.
+            wndm(ji,jj) = SQRT(  sf(jp_wndi)%fnow(ji,jj) * sf(jp_wndi)%fnow(ji,jj)   &
+         &                     + sf(jp_wndj)%fnow(ji,jj) * sf(jp_wndj)%fnow(ji,jj) )
+         ENDDO
+      ENDDO
+
       ! ... components ( U10m - U_oce ) at T-point (unmasked)
       zwnd_i(:,:) = 0.e0