Ignore:
Timestamp:
2013-02-01T15:56:10+01:00 (9 years ago)
Author:
smasson
Message:

dev_MERGE_2012: xios+agrif+oasis compliant

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/step.F90

    r3362 r3769  
    1919   USE iom              ! 
    2020   USE lbclnk 
     21#if defined key_iomput 
     22   USE xios 
     23#endif 
    2124 
    2225   USE daymod           ! calendar                         (day     routine) 
     
    7275# endif    
    7376#endif    
     77      IF( kstp == nit000 )   CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 
    7478      IF( kstp /= nit000 )   CALL day( kstp )             ! Calendar (day was already called at nit000 in day_init) 
    7579                             CALL iom_setkt( kstp )       ! say to iom that we are at time step kstp 
     
    8286                                                          ! need to keep the same interface  
    8387                             CALL stp_ctl( kstp, indic ) 
     88#if defined key_iomput 
     89      IF( kstp == nitend )   CALL xios_context_finalize() ! needed for XIOS+AGRIF 
     90#endif 
    8491      ! 
    8592      IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset 
Note: See TracChangeset for help on using the changeset viewer.