Changeset 13775
- Timestamp:
- 2020-11-11T13:54:38+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.3_fix_a_ip_eff/src/ICE/icevar.F90
r13587 r13775 244 244 ELSEWHERE( h_il(:,:,:) >= zhl_max ) ; a_ip_eff(:,:,:) = 0._wp ! lid is very thick. Cover all the pond up with ice and snow 245 245 ELSEWHERE ; a_ip_eff(:,:,:) = a_ip_frac(:,:,:) * & ! lid is in between. Expose part of the pond 246 & ( h_il(:,:,:) - zhl_min) / ( zhl_max - zhl_min )246 & ( zhl_max - h_il(:,:,:) ) / ( zhl_max - zhl_min ) 247 247 END WHERE 248 248 !
Note: See TracChangeset
for help on using the changeset viewer.