Changeset 13862 for NEMO/branches

Timestamp:

2020-11-24T18:17:21+01:00 (3 years ago)

Author:

dancopsey

Message:

Merge in NEMO4.0.3 version of this branch from:

​http://forge.ipsl.jussieu.fr/nemo/log/NEMO/branches/UKMO/NEMO_4.0.3_fix_a_ip_eff

File:

• NEMO/branches/2020/dev_r13787_fix_a_ip_eff/src/ICE/icevar.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r13787_fix_a_ip_eff/src/ICE/icevar.F90

@@ -252 +252 @@
       ELSEWHERE( h_il(:,:,:) >= zhl_max )  ;   a_ip_eff(:,:,:) = 0._wp                  ! lid is very thick. Cover all the pond up with ice and snow
       ELSEWHERE                            ;   a_ip_eff(:,:,:) = a_ip_frac(:,:,:) * &   ! lid is in between. Expose part of the pond
-         &                                                       ( h_il(:,:,:) - zhl_min ) / ( zhl_max - zhl_min )
+         &                                                       ( zhl_max - h_il(:,:,:) ) / ( zhl_max - zhl_min )
       END WHERE
       !