Changeset 7794 for branches/UKMO
- Timestamp:
- 2017-03-14T17:24:44+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r7793 r7794 564 564 cpl_wnum = .TRUE. 565 565 ENDIF 566 srcv(jpr_tauoc)%clname = 'O_ WStrf' ! stress fraction adsorbed by the wave566 srcv(jpr_tauoc)%clname = 'O_TauOce' ! stress fraction adsorbed by the wave 567 567 IF( TRIM(sn_rcv_tauoc%cldes ) == 'coupled' ) THEN 568 568 srcv(jpr_tauoc)%laction = .TRUE.
Note: See TracChangeset
for help on using the changeset viewer.