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

Timestamp:

2021-07-15T12:46:34+02:00 (3 years ago)

Author:

edblockley

Message:

Bug fix to TOPO melt-pond scheme to fix issue of non-melting lids (identified by David Livings@CPOM)

File:

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

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

@@ -660 +660 @@
                      IF ( t_su(ji,jj,jl) > zTp ) THEN
 
-                        zdvice = MIN( dh_i_sum_2d(ji,jj,jl)*a_ip(ji,jj,jl), v_il(ji,jj,jl) )
+                        zdvice = MIN( -dh_i_sum_2d(ji,jj,jl)*a_ip(ji,jj,jl), v_il(ji,jj,jl) )
                         
                         IF ( zdvice > epsi10 ) THEN