Changeset 11832


Ignore:
Timestamp:
2019-10-29T18:21:12+01:00 (11 months ago)
Author:
dancopsey
Message:

Convert evap_ice from grid box means to sea ice means

File:
1 edited

Legend:

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

    r11789 r11832  
    17641764         sprecip (:,:)   = zsprecip (:,:) 
    17651765         tprecip (:,:)   = ztprecip (:,:) 
    1766          evap_ice(:,:,:) = zevap_ice(:,:,:) 
     1766         IF (ln_scale_ice_fluxes) THEN 
     1767            ! Convert from grid box means to sea ice means 
     1768            WHERE( a_i(:,:,:) > 0.0_wp ) evap_ice(:,:,:) = zevap_ice(:,:,:) / a_i(:,:,:) 
     1769            WHERE( a_i(:,:,:) <= 0.0_wp ) evap_ice(:,:,:) = 0.0 
     1770         ELSE 
     1771            evap_ice(:,:,:) = zevap_ice(:,:,:) 
     1772         ENDIF 
    17671773         DO jl = 1, jpl 
    17681774            devap_ice(:,:,jl) = zdevap_ice(:,:) 
Note: See TracChangeset for help on using the changeset viewer.