Changeset 69 for trunk


Ignore:
Timestamp:
01/21/13 21:39:42 (11 years ago)
Author:
smasson
Message:

bugfix for oa3mct + agrif + xios in serveur mode

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r68 r69  
    384384      !                                     ! Diagnostics 
    385385      IF( lk_floats     )   CALL     flo_init   ! drifting Floats 
    386                             CALL     iom_init   ! iom_put initialization 
     386!!$                            CALL     iom_init   ! iom_put initialization 
    387387      IF( lk_diaar5     )   CALL dia_ar5_init   ! ar5 diag 
    388388                            CALL dia_ptr_init   ! Poleward TRansports initialization 

  • trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

    r68 r69  
    9696#endif    
    9797                             indic = 0                ! reset to no error condition 
     98      IF( kstp == nit000 )   CALL iom_init   ! iom_put initialization 
    9899      IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init) 
    99100                             CALL iom_setkt( kstp - nit000 + 1 )   ! say to iom that we are at time step kstp 
Note: See TracChangeset for help on using the changeset viewer.