Changeset 9960


Ignore:
Timestamp:
2018-07-17T14:20:39+02:00 (2 years ago)
Author:
davestorkey
Message:

UKMO icebergs_ocean_heat_fluxes : important sign change.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/icebergs_ocean_heat_fluxes/src/OCE/ICB/icbthm.F90

    r9959 r9960  
    168168            berg_grid%floating_melt(ii,ij) = berg_grid%floating_melt(ii,ij) + zmelt    * z1_e1e2    ! kg/m2/s 
    169169            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/s 
     170            zheat_latent = - zmelt * rLfus                 ! latent heat flux:  kg/s x J/kg = J/s 
    171171            berg_grid%calving_hflx (ii,ij) = berg_grid%calving_hflx (ii,ij) + ( zheat_hcflux + zheat_latent ) * z1_e1e2    ! W/m2 
    172172            CALL icb_dia_melt( ii, ij, zMnew, zheat_hcflux, zheat_latent, this%mass_scaling,       & 
Note: See TracChangeset for help on using the changeset viewer.