Changeset 12509 for NEMO/branches/UKMO

Timestamp:

2020-03-04T18:56:01+01:00 (4 years ago)

Author:

dancopsey

Message:

Fix compile errors

File:

• NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icethd_pnd.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icethd_pnd.F90

@@ -238 +238 @@
 
                   ! Lid growing
-                  F ( ln_pnd_lids )  lh_ip_1d(ji) = lh_ip_1d(ji) + zdh_frz
+                  IF ( ln_pnd_lids )  lh_ip_1d(ji) = lh_ip_1d(ji) + zdh_frz
                ELSE
                   zdh_frz = 0._wp
@@ -262 +262 @@
             IF ( ln_pnd_overflow ) THEN
 
-               ! If pond area exceeds a_pnd_avail_1d(ji) * a_i_1d(ji) then reduce the pond volume
-               IF ( a_ip_1d(ji) > a_pnd_avail_1d(ji) * a_i_1d(ji) ) THEN
+               ! If pond area exceeds zfr_mlt * a_i_1d(ji) then reduce the pond volume
+               IF ( a_ip_1d(ji) > zfr_mlt * a_i_1d(ji) ) THEN
                    v_ip_old = v_ip_1d(ji)   ! Save original volume before leak for future use
-                   dh_ip_over = zpnd_aspect * a_pnd_avail_1d(ji) - h_ip_1d(ji)   ! This will be a negative number
+                   dh_ip_over = zpnd_aspect * zfr_mlt - h_ip_1d(ji)   ! This will be a negative number
                    dh_ip_over = MAX(dh_ip_over,max_h_diff_ts)                       ! Apply a limit
                    h_ip_1d(ji) = MAX(0._wp, h_ip_1d(ji) + dh_ip_over)