Changeset 4639
- Timestamp:
- 2014-05-13T18:39:35+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_ECMWF_waves/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r4351 r4639 271 271 lambda = 2.38_wp/z0 272 272 ! The energy flux from the wave model in physical units 273 zphio_flux = phioc_wavepar(ji,jj)273 zphio_flux = MAX(phioc_wavepar(ji,jj), 0.0_wp) 274 274 ! TKE at surface (Mellor and Blumberg, 2004) 275 275 e0(ji,jj) = 0.5_wp*( 15.8_wp*zphio_flux/rau0 )**0.67_wp
Note: See TracChangeset
for help on using the changeset viewer.