- Timestamp:
- 2018-07-11T10:24:17+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/ICE/icethd_pnd.F90
r9750 r9923 168 168 ! melt pond mass flux (<0) 169 169 IF( ln_pnd_fwb .AND. zdv_mlt > 0._wp ) THEN 170 zfac = zfr_mlt * zdv_mlt * rhofw * r1_ rdtice170 zfac = zfr_mlt * zdv_mlt * rhofw * r1_Dt_ice 171 171 wfx_pnd_1d(ji) = wfx_pnd_1d(ji) - zfac 172 172 !
Note: See TracChangeset
for help on using the changeset viewer.