Changeset 9960
- Timestamp:
- 2018-07-17T14:20:39+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/icebergs_ocean_heat_fluxes/src/OCE/ICB/icbthm.F90
r9959 r9960 168 168 berg_grid%floating_melt(ii,ij) = berg_grid%floating_melt(ii,ij) + zmelt * z1_e1e2 ! kg/m2/s 169 169 zheat_hcflux = zmelt * pt%heat_density ! heat content flux : kg/s x J/kg = J/s 170 zheat_latent = zmelt * rLfus ! latent heat flux: kg/s x J/kg = J/s170 zheat_latent = - zmelt * rLfus ! latent heat flux: kg/s x J/kg = J/s 171 171 berg_grid%calving_hflx (ii,ij) = berg_grid%calving_hflx (ii,ij) + ( zheat_hcflux + zheat_latent ) * z1_e1e2 ! W/m2 172 172 CALL icb_dia_melt( ii, ij, zMnew, zheat_hcflux, zheat_latent, this%mass_scaling, &
Note: See TracChangeset
for help on using the changeset viewer.