Changeset 13558 for NEMO/trunk/src/ICE/icestp.F90

Timestamp:

2020-10-02T17:30:22+02:00 (4 years ago)

Author:

smasson

Message:

trunk: pass sette tests with debugging option -init=arrays,snan,huge, see #2535

File:

• NEMO/trunk/src/ICE/icestp.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/icestp.F90

@@ -263 +263 @@
       CALL ice_thd_init                ! set ice thermodynics parameters (clem: important to call it first for melt ponds)
       !
-      !                                ! Initial sea-ice state
-      CALL ice_istate_init
+      CALL ice_sbc_init                ! set ice-ocean and ice-atm. coupling parameters
+      !
+      CALL ice_istate_init             ! Initial sea-ice state
       IF ( ln_rstart .OR. nn_iceini_file == 2 ) THEN
          CALL ice_rst_read( Kbb, Kmm, Kaa )         ! start from a restart file
@@ -272 +273 @@
       CALL ice_var_glo2eqv
       CALL ice_var_agg(1)
-      !
-      CALL ice_sbc_init                ! set ice-ocean and ice-atm. coupling parameters
       !
       CALL ice_dyn_init                ! set ice dynamics parameters