New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13728 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ISF/isfpar.F90 – NEMO

Ignore:
Timestamp:
2020-11-05T17:06:42+01:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2462: merge changes 13702,13717,13718 from #2386

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ISF/isfpar.F90

    r13727 r13728  
    152152      ! read par variable from restart 
    153153      IF ( ln_rstart ) CALL isfrst_read('par', risf_par_tsc, fwfisf_par, risf_par_tsc_b, fwfisf_par_b) 
     154      !define fields for restart 
     155      IF( lwxios ) THEN 
     156         CALL iom_set_rstw_var_active( 'fwfisf_'//'par'//'_b') 
     157         CALL iom_set_rstw_var_active( 'isf_hc_'//'par'//'_b') 
     158         CALL iom_set_rstw_var_active( 'isf_sc_'//'par'//'_b') 
     159      ENDIF 
     160 
    154161      ! 
    155162      SELECT CASE ( TRIM(cn_isfpar_mlt) ) 
Note: See TracChangeset for help on using the changeset viewer.