Changeset 8316 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/ASM

Timestamp:

2017-07-11T14:05:05+02:00 (7 years ago)

Author:

clem

Message:

STEP2 (3): remove obsolete features

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

@@ -146 +146 @@
             CALL iom_rstput( kt, nitdin_r, inum, 'sshn'   , sshn              )
 #if defined key_lim3
-            IF( nn_ice == 3 ) THEN
+            IF( nn_ice == 2 ) THEN
                IF( ALLOCATED(at_i) ) THEN
                   CALL iom_rstput( kt, nitdin_r, inum, 'iceconc', at_i(:,:)   )