Changeset 11370


Ignore:
Timestamp:
2019-07-30T10:56:40+02:00 (14 months ago)
Author:
dancopsey
Message:

Correction. oce only fluxes shoudl be just for open ocean. Setting sea ice fluxes to zero.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90

    r11369 r11370  
    17841784      CASE( 'oce only' )         ! the required field is directly provided 
    17851785         zqns_tot(:,:) = frcv(jpr_qnsoce)%z3(:,:,1) 
    1786          DO jl=1,jpl  
    1787             zqns_ice(:,:,jl) = zqns_tot(:,:) * a_i(:,:,jl)  
    1788          ENDDO  
     1786         ! For Met Office sea ice non-solar fluxes are already delt with by JULES so setting to zero 
     1787         ! here so the only flux is the ocean only one. 
     1788         zqns_ice(:,:,:) = 0._wp  
    17891789      CASE( 'conservative' )     ! the required fields are directly provided 
    17901790         zqns_tot(:,:) = frcv(jpr_qnsmix)%z3(:,:,1) 
     
    19171917      CASE( 'oce only' ) 
    19181918         zqsr_tot(:,:  ) = MAX( 0._wp , frcv(jpr_qsroce)%z3(:,:,1) ) 
    1919          DO jl=1,jpl  
    1920             zqsr_ice(:,:,jl) = zqsr_tot(:,:) * a_i(:,:,jl)  
    1921          ENDDO  
     1919         ! For Met Office sea ice solar fluxes are already delt with by JULES so setting to zero 
     1920         ! here so the only flux is the ocean only one. 
     1921         zqsr_ice(:,:,:) = 0._wp 
    19221922      CASE( 'conservative' ) 
    19231923         zqsr_tot(:,:  ) = frcv(jpr_qsrmix)%z3(:,:,1) 
Note: See TracChangeset for help on using the changeset viewer.