Changeset 11860 for NEMO/branches
- Timestamp:
- 2019-11-05T17:09:12+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_OSMOSIS/src/OCE/ZDF/zdfosm.F90
r11145 r11860 367 367 zus_y = zsin_wind(ji,jj) * zustar(ji,jj) / 0.3**2 368 368 zustke(ji,jj) = MAX ( SQRT( zus_x*zus_x + zus_y*zus_y), 1.0e-8 ) 369 dstokes(ji,jj) = rn_osm_dstokes 369 370 ! dstokes(ji,jj) set to constant value rn_osm_dstokes from namelist in zdf_osm_init 370 371 END DO … … 376 377 ! Use wind speed wndm included in sbc_oce module 377 378 zustke(ji,jj) = MAX ( 0.016 * wndm(ji,jj), 1.0e-8 ) 378 dstokes(ji,jj) = 0.12 * wndm(ji,jj)**2 / grav379 dstokes(ji,jj) = MAX( 0.12 * wndm(ji,jj)**2 / grav, 5.e-1) 379 380 END DO 380 381 END DO
Note: See TracChangeset
for help on using the changeset viewer.