Changeset 11832 for NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only
- Timestamp:
- 2019-10-29T18:21:12+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90
r11789 r11832 1764 1764 sprecip (:,:) = zsprecip (:,:) 1765 1765 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 1767 1773 DO jl = 1, jpl 1768 1774 devap_ice(:,:,jl) = zdevap_ice(:,:)
Note: See TracChangeset
for help on using the changeset viewer.