Changeset 13955 for NEMO/branches/2020
- Timestamp:
- 2020-12-01T22:02:15+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE/TRA/eosbn2.F90
r13888 r13955 602 602 ! 603 603 END SELECT 604 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab2d_1=prhop, clinfo1=' pot: ', kdim=1 ) 604 605 ! 605 606 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab2d_1=prhop, clinfo1=' eos-pot: ' ) -
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.