Changeset 1705 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2009-11-03T17:37:00+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
r1698 r1705 419 419 ! ! ------------------------- ! 420 420 srcv(jpr_taum)%clname = 'O_TauMod' ; IF( TRIM(cn_rcv_taumod) == 'coupled' ) srcv(jpr_taum)%laction = .TRUE. 421 lhftau = srcv(jpr_taum)%laction 421 422 422 423 #if defined key_cpl_carbon_cycle … … 693 694 taum(:,:) = frcv(:,:,jpr_taum) 694 695 wndm(:,:) = frcv(:,:,jpr_w10m) 696 CALL iom_put( "taum_oce", taum ) ! output wind stress module 695 697 ! 696 698 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.