Changeset 13750 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ISF/isfpar.F90

Timestamp:

2020-11-09T16:35:44+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: Fixes after merge

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ISF/isfpar.F90 (modified) (1 diff)

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ISF/isfpar.F90

@@ -152 +152 @@
       ! read par variable from restart
       IF ( ln_rstart ) CALL isfrst_read('par', risf_par_tsc, fwfisf_par, risf_par_tsc_b, fwfisf_par_b)
-      !define fields for restart
-      IF( lwxios ) THEN
-         CALL iom_set_rstw_var_active( 'fwfisf_'//'par'//'_b')
-         CALL iom_set_rstw_var_active( 'isf_hc_'//'par'//'_b')
-         CALL iom_set_rstw_var_active( 'isf_sc_'//'par'//'_b')
-      ENDIF
-
       !
       SELECT CASE ( TRIM(cn_isfpar_mlt) )