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 11870 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icedyn_rhg_evp.F90 – NEMO

Ignore:
Timestamp:
2019-11-07T12:27:28+01:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2323: open single restart write context for all restart files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icedyn_rhg_evp.F90

    r11840 r11870  
    870870      !!---------------------------------------------------------------------- 
    871871      ! 
     872      IF(lwxios) THEN 
     873         CALL iom_set_rstw_var_active(rsti_wfields, 'stress1_i' ) 
     874         CALL iom_set_rstw_var_active(rsti_wfields, 'stress2_i' ) 
     875         CALL iom_set_rstw_var_active(rsti_wfields, 'stress12_i') 
     876      ENDIF 
     877 
    872878      IF( TRIM(cdrw) == 'READ' ) THEN        ! Read/initialize 
    873879         !                                   ! --------------- 
    874          IF(lwxios) THEN 
    875             CALL iom_set_rstw_var_active(rsti_wfields, 'stress1_i' ) 
    876             CALL iom_set_rstw_var_active(rsti_wfields, 'stress2_i' ) 
    877             CALL iom_set_rstw_var_active(rsti_wfields, 'stress12_i') 
    878          ENDIF 
    879          ! 
    880880         IF( ln_rstart ) THEN                   !* Read the restart file 
    881881            ! 
     
    910910         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    911911         ! 
    912          IF(lwxios) CALL iom_swap( TRIM(cwixios_context) ) 
     912         IF(lwxios) CALL iom_swap( TRIM(cwxios_context) ) 
    913913         CALL iom_rstput( iter, nitrst, numriw, 'stress1_i' , stress1_i,  ldxios = lwxios ) 
    914914         CALL iom_rstput( iter, nitrst, numriw, 'stress2_i' , stress2_i,  ldxios = lwxios ) 
Note: See TracChangeset for help on using the changeset viewer.