Changeset 13955 for NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE/ZDF/zdfmfc.F90
- Timestamp:
- 2020-12-01T22:02:15+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE/ZDF/zdfmfc.F90
r13888 r13955 189 189 WHERE(zwpsurf .NE. 0.) zapp(:,:,1) = MIN(MAX(0.,zedmf(:,:,1)/zwpsurf(:,:)), App_max) 190 190 191 zedmf(:,:,1) = -zedmf(:,:,1)192 zrwp (:,:,1) = zwpsurf(:,:)193 zrwp2(:,:,1) = zwpsurf(:,:)**2191 zedmf(:,:,1) = 0._wp 192 zrwp (:,:,1) = 0._wp 193 zrwp2(:,:,1) = 0._wp 194 194 zepsT(:,:,:) = 0.001_wp 195 195 zepsW(:,:,:) = 0.001_wp
Note: See TracChangeset
for help on using the changeset viewer.