Changeset 12464 for NEMO/branches/UKMO/NEMO_4.0_ICB_melting_temperature/src/OCE/ICB/icbdyn.F90

Timestamp:

2020-02-26T10:22:05+01:00 (4 years ago)

Author:

cguiavarch

Message:

Stop ICB melting if surface temperature below the freezing point.

File:

• NEMO/branches/UKMO/NEMO_4.0_ICB_melting_temperature/src/OCE/ICB/icbdyn.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0_ICB_melting_temperature/src/OCE/ICB/icbdyn.F90

@@ -258 +258 @@
       !
       INTEGER  ::   itloop
-      REAL(wp) ::   zuo, zui, zua, zuwave, zssh_x, zsst, zcn, zhi
+      REAL(wp) ::   zuo, zui, zua, zuwave, zssh_x, zsst, zcn, zhi, zsss
       REAL(wp) ::   zvo, zvi, zva, zvwave, zssh_y
       REAL(wp) ::   zff, zT, zD, zW, zL, zM, zF
@@ -271 +271 @@
       nknberg = berg%number(1)
       CALL icb_utl_interp( pxi, pe1, zuo, zui, zua, zssh_x,                     &
-         &                 pyj, pe2, zvo, zvi, zva, zssh_y, zsst, zcn, zhi, zff )
+         &                 pyj, pe2, zvo, zvi, zva, zssh_y, zsst, zcn, zhi, zff, zsss )
 
       zM = berg%current_point%mass