Changeset 14473
- Timestamp:
- 2021-02-16T18:55:27+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/ZDF/zdfosm.F90
r14443 r14473 395 395 ghams(:,:,:) = 0._wp ; ghamu(:,:,:) = 0._wp ; ghamv(:,:,:) = 0._wp 396 396 397 ! hbl = MAX(hbl,epsln) 397 ! ************* TEMPORARY FIX ***************** 398 ! Make sure hbl is always positive. Temporary fix to be removed when 399 ! we find out what is causing negative values of hbl. 400 hbl = MAX(hbl,gdepw_n(:,:,4)) 401 402 398 403 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 399 404 ! Calculate boundary layer scales
Note: See TracChangeset
for help on using the changeset viewer.