Ignore:
Timestamp:
2019-03-06T11:41:11+01:00 (20 months ago)
Author:
dancopsey
Message:
  • Multiply snow by ice fraction to get the snow on the ice part of the grid box (as a grid box mean).
  • Multiply ice sublimation which is a flux on each sea ice category by each ice category fraction to also get them to be grid box mean values.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_fix_zemp_ice/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r9321 r10736  
    17581758         IF ( TRIM(sn_rcv_emp%clcat) == 'yes' ) THEN 
    17591759            ! zemp_ice is the sum of frcv(jpr_ievp)%z3(:,:,1) over all layers - snow 
    1760             zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1) 
     1760            zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1) * zicefr(:,:) 
    17611761            DO jl=1,jpl 
    1762                zemp_ice(:,:   ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl) 
     1762               zemp_ice(:,:   ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl) * a_i(:,:,jl) 
    17631763            ENDDO 
    17641764            ! latent heat coupled for each category in CICE 
Note: See TracChangeset for help on using the changeset viewer.