Changeset 1649

Timestamp:

2009-10-08T11:26:29+02:00 (15 years ago)

Author:

cetlod

Message:

output 10m wind speed module, see ticket:555

Location:

trunk/NEMO/OPA_SRC

Files:

• DIA/diawri.F90 (modified) (2 diffs)
• SBC/sbcmod.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -306 +306 @@
          CALL histdef( nid_T, "soicecov", "Ice fraction"                       , "[0,1]"  ,   &  ! fr_i
             &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout )
+         CALL histdef( nid_T, "sowindsp", "wind speed at 10m"                  , "m/s"    ,   &  ! wndm
+            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout )
 #if ! defined key_coupled 
          CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping"         , "W/m2"   ,   &  ! qrp
@@ -448 +450 @@
       CALL histwrite( nid_T, "somxl010", it, hmlp          , ndim_hT, ndex_hT )   ! mixed layer depth
       CALL histwrite( nid_T, "soicecov", it, fr_i          , ndim_hT, ndex_hT )   ! ice fraction   
+      CALL histwrite( nid_T, "sowindsp", it, wndm          , ndim_hT, ndex_hT )   ! wind speed   
 #if ! defined key_coupled
       CALL histwrite( nid_T, "sohefldp", it, qrp           , ndim_hT, ndex_hT )   ! heat flux damping

trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -253 +253 @@
       CALL iom_put( "utau", utau )   ! i-wind stress   (stress can be updated at 
       CALL iom_put( "vtau", vtau )   ! j-wind stress    each time step in sea-ice)
+      CALL iom_put( "wspd", wndm )   ! wind speed module 
       !
       IF(ln_ctl) THEN         ! print mean trends (used for debugging)