Changeset 1705 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2009-11-03T17:37:00+01:00 (14 years ago)

Author:

smasson

Message:

impact of HF winds in TKE, see ticket:585

File:

• trunk/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -419 +419 @@
       !                                                      ! ------------------------- !
       srcv(jpr_taum)%clname = 'O_TauMod'   ;   IF( TRIM(cn_rcv_taumod) == 'coupled' )   srcv(jpr_taum)%laction = .TRUE.
+      lhftau = srcv(jpr_taum)%laction
 
 #if defined key_cpl_carbon_cycle
@@ -693 +694 @@
          taum(:,:) = frcv(:,:,jpr_taum)
          wndm(:,:) = frcv(:,:,jpr_w10m)
+         CALL iom_put( "taum_oce", taum )   ! output wind stress module
          !  
       ENDIF