Changeset 14562


Ignore:
Timestamp:
2021-03-01T18:09:46+01:00 (2 months ago)
Author:
dancopsey
Message:

Remove sublimation and snow precip from surface energy balance

Location:
NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src/ICE/iceupdate.F90

    r14075 r14562  
    127127            qt_oce_ai(ji,jj) = qt_atm_oi(ji,jj) - hfx_sum(ji,jj) - hfx_bom(ji,jj) - hfx_bog(ji,jj) & 
    128128               &                                - hfx_dif(ji,jj) - hfx_opw(ji,jj) - hfx_snw(ji,jj) & 
    129                &                                + hfx_thd(ji,jj) + hfx_dyn(ji,jj) + hfx_res(ji,jj) & 
    130                &                                + hfx_sub(ji,jj) - SUM( qevap_ice(ji,jj,:) * a_i_b(ji,jj,:) ) + hfx_spr(ji,jj)                  
     129               &                                + hfx_thd(ji,jj) + hfx_dyn(ji,jj) + hfx_res(ji,jj)                  
    131130             
    132131            ! New qsr and qns used to compute the oceanic heat flux at the next time step 
  • NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src/OCE/SBC/sbccpl.F90

    r14420 r14562  
    18851885         ! Get the sea ice non solar heat flux from conductive, melting and sublimation fluxes 
    18861886         IF( TRIM(sn_rcv_iceflx%cldes) == 'coupled' ) THEN 
    1887             zqns_ice(:,:,:) = qml_ice(:,:,:) + qcn_ice(:,:,:) + evap_ice(:,:,:) * rLsub 
     1887            zqns_ice(:,:,:) = qml_ice(:,:,:) + qcn_ice(:,:,:) 
    18881888         ELSE 
    18891889            zqns_ice(:,:,:) = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.