Ignore:
Timestamp:
2019-04-16T14:58:06+02:00 (2 years ago)
Author:
anaguiar
Message:

Changes to reinstate heat fluxes, see https://code.metoffice.gov.uk/trac/gmed/ticket/454

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_FOAMv14_output_heat_fluxes/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r10302 r10879  
    668668! Solar penetrative radiation and non solar surface heat flux 
    669669 
    670 ! Scale qsr and qns according to ice fraction (bulk formulae only) 
     670! Scale qsr, qns, qlw, qsb, qla according to ice fraction (bulk formulae only) 
    671671 
    672672      IF (ksbc == jp_core) THEN 
    673673         qsr(:,:)=qsr(:,:)*(1.0-fr_i(:,:)) 
    674674         qns(:,:)=qns(:,:)*(1.0-fr_i(:,:)) 
     675         qlw(:,:)=qlw(:,:)*(1.0-fr_i(:,:)) 
     676         qsb(:,:)=qsb(:,:)*(1.0-fr_i(:,:)) 
     677         qla(:,:)=qla(:,:)*(1.0-fr_i(:,:)) 
    675678      ENDIF 
    676679! Take into account snow melting except for fully coupled when already in qns_tot 
     
    680683      ELSE 
    681684         qns(:,:)= qns(:,:)-sprecip(:,:)*Lfresh*(1.0-fr_i(:,:)) 
     685         qla(:,:)= qla(:,:)+sprecip(:,:)*Lfresh*(1.0-fr_i(:,:)) 
    682686      ENDIF 
    683687 
Note: See TracChangeset for help on using the changeset viewer.