Changeset 14452 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_package

Timestamp:

2021-02-15T17:03:06+01:00 (4 years ago)

Author:

edblockley

Message:

Fixing bug in effective melt-pond area calculation that should have been ported from changeset:13775

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icevar.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icevar.F90

@@ -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
       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
       !