Changeset 9122

Timestamp:

2017-12-18T21:37:07+01:00 (5 years ago)

Author:

clem

Message:

fix a first issue with restarts when ponds are activated

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

@@ -210 +210 @@
       CALL iom_get( numrir, jpdom_autoglo, 't_su', t_su )
       ! Melt ponds
-      id1 = iom_varid( numrir, 'a_ip_htc01' , ldstop = .FALSE. )
+      id1 = iom_varid( numrir, 'a_ip' , ldstop = .FALSE. )
       IF( id1 > 0 ) THEN                       ! fields exist (melt ponds)
          CALL iom_get( numrir, jpdom_autoglo, 'a_ip' , a_ip )