Changeset 10738


Ignore:
Timestamp:
2019-03-06T16:14:12+01:00 (19 months ago)
Author:
dancopsey
Message:

Multiply snow and sublimation by ice fractions.

File:
1 edited

Legend:

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

    r8427 r10738  
    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.