Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (5 months ago)
Author:
andmirek
Message:

Ticket #2462: new XIOS restart read/write interfaces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/DOM/daymod.F90

    r12489 r12950  
    148148      CALL day( nit000 ) 
    149149      ! 
    150       IF( lwxios ) THEN 
    151 ! define variables in restart file when writing with XIOS 
    152           CALL iom_set_rstw_var_active('kt') 
    153           CALL iom_set_rstw_var_active('ndastp') 
    154           CALL iom_set_rstw_var_active('adatrj') 
    155           CALL iom_set_rstw_var_active('ntime') 
    156       ENDIF 
    157  
    158150   END SUBROUTINE day_init 
    159151 
     
    323315 
    324316      IF( TRIM(cdrw) == 'READ' ) THEN 
    325  
     317         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 
    326318         IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 
    327319            ! Get Calendar informations 
     
    391383            adatrj = ( REAL( nit000-1, wp ) * rn_Dt ) / rday 
    392384         ENDIF 
     385         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 
    393386         IF( ABS(adatrj  - REAL(NINT(adatrj),wp)) < 0.1 / rday )   adatrj = REAL(NINT(adatrj),wp)   ! avoid truncation error 
    394387         ! 
     
    409402         ENDIF 
    410403         ! calendar control 
    411          IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     404         IF( lwxios ) THEN 
     405            CALL iom_swap(      cwxios_context          ) 
     406!           IF( kt == nitrst ) THEN 
     407!               CALL iom_init_closedef(cwxios_context) 
     408!               CALL iom_setkt( kt - nit000 + 1,      cwxios_context          ) 
     409!               CALL iom_swap(      cwxios_context          ) 
     410!           ENDIF 
     411         ENDIF 
    412412         CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp)  , ldxios = lwxios )   ! time-step 
    413413         CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp)  , ldxios = lwxios )   ! date 
Note: See TracChangeset for help on using the changeset viewer.