Changeset 1756 for trunk/NEMO/LIM_SRC_2/limthd_zdf_2.F90
- Timestamp:
- 2009-11-25T15:15:20+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limthd_zdf_2.F90
r1465 r1756 596 596 !--limitation of bottom melting if so : hmelt maximum melting at bottom 597 597 zdhicmlt = MAX( hmelt , zdhicbot(ji) ) 598 !-- output part due to bottom melting only 599 IF( zdhicmlt < 0.e0 ) rdvomif_1d(ji) = ( 1.0 - frld_1d(ji) ) * zdhicmlt 598 600 !--energy after bottom melting/growing 599 601 zqsup(ji) = ( 1.0 - frld_1d(ji) ) * xlic * ( zdhicmlt - zdhicbot(ji) )
Note: See TracChangeset
for help on using the changeset viewer.