Changeset 8948 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3

Timestamp:

2017-12-08T11:23:34+01:00 (6 years ago)

Author:

clem

Message:

forgotten commits. All sette tests passed except isomip as expected

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90 (modified) (3 diffs)

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

@@ -19 +19 @@
    USE ice            ! sea-ice variables
    USE dom_oce        ! ocean domain
-   USE sbc_oce , ONLY : nn_fsbc, ln_meto_cpl
+   USE sbc_oce , ONLY : nn_fsbc, ln_cpl
    USE icectl
    !
@@ -146 +146 @@
       CALL iom_rstput( iter, nitrst, numriw, 'u_ice', u_ice ) ! u_ice
       CALL iom_rstput( iter, nitrst, numriw, 'v_ice', v_ice ) ! v_ice
-      ! fields needed for Jules coupling
-      IF (ln_meto_cpl) THEN
+      ! fields needed for Met Office (Jules) coupling
+      IF( ln_cpl ) THEN
          CALL iom_rstput( iter, nitrst, numriw, 'cnd_ice', cnd_ice )
          CALL iom_rstput( iter, nitrst, numriw, 't1_ice' , t1_ice  )
@@ -233 +233 @@
       CALL iom_get( numrir, jpdom_autoglo, 'u_ice', u_ice )
       CALL iom_get( numrir, jpdom_autoglo, 'v_ice', v_ice )
-      ! fields needed for Jules coupling
-      IF (ln_meto_cpl) THEN
+      ! fields needed for Met Office (Jules) coupling
+      IF( ln_cpl ) THEN
          CALL iom_get( numrir, jpdom_autoglo, 'cnd_ice', cnd_ice )
          CALL iom_get( numrir, jpdom_autoglo, 't1_ice' , t1_ice  )