Changeset 7763 for branches/UKMO
- Timestamp:
- 2017-03-07T11:30:35+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r7739 r7763 209 209 CALL fld_read( kt, nn_fsbc, sf_cd ) ! read from external forcing 210 210 cdn_wave(:,:) = sf_cd(1)%fnow(:,:,1) 211 ! check that the drag coefficient contains proper information even if 212 ! the masks do not match - the momentum stress is not masked! 213 WHERE( cdn_wave < 0.0 ) cdn_wave = 1.5e-3 214 WHERE( cdn_wave > 1.0 ) cdn_wave = 1.5e-3 211 215 ENDIF 212 216 … … 214 218 CALL fld_read( kt, nn_fsbc, sf_tauoc ) ! read wave norm stress from external forcing 215 219 tauoc_wave(:,:) = sf_tauoc(1)%fnow(:,:,1) 220 WHERE( tauoc_wave < -100.0 ) tauoc_wave = 1.0 221 WHERE( tauoc_wave > 100.0 ) tauoc_wave = 1.0 216 222 ENDIF 217 223
Note: See TracChangeset
for help on using the changeset viewer.