Changeset 36 for trunk


Ignore:
Timestamp:
03/28/12 14:46:03 (12 years ago)
Author:
cholod
Message:

start_date and nit000 for XIOS automatically managed by nemo

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

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r33 r36  
    8888#if defined key_iomput 
    8989      TYPE(xios_time) :: dtime    = xios_time(0, 0, 0, 0, 0, 0) 
     90      CHARACTER(len=19) :: cldate  
    9091      !!---------------------------------------------------------------------- 
    9192 
    … …  
    99100      CASE (30)   ;   CALL xios_set_context_attr("nemo", calendar_type= "D360") 
    100101      END SELECT 
     102      WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday  
     103      CALL xios_set_context_attr("nemo", start_date=cldate ) 
     104      IF(lwp) WRITE(numout,*) 'SEB start date' , cldate 
    101105 
    102106      ! horizontal grid definition 
    … …  
    121125       CALL xios_close_context_definition() 
    122126 
    123        CALL xios_update_calendar(nit000-1) 
     127       CALL xios_update_calendar(0) 
    124128#endif 
    125129 

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r7 r36  
    241241      !                                            ! ---------------------------------------- ! 
    242242 
    243       CALL iom_setkt( kt + nn_fsbc - 1 )                 ! in sbc, iom_put is called every nn_fsbc time step 
     243!     CALL iom_setkt( kt + nn_fsbc - 1 )                 ! in sbc, iom_put is called every nn_fsbc time step 
    244244      ! 
    245245      IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc 
    … …  
    344344      ENDIF 
    345345      ! 
    346       CALL iom_setkt( kt )           ! iom_put outside of sbc is called at every time step 
     346!     CALL iom_setkt( kt )           ! iom_put outside of sbc is called at every time step 
    347347      ! 
    348348      CALL iom_put( "utau", utau )   ! i-wind stress   (stress can be updated at  

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

    r13 r36  
    9393                             indic = 0                ! reset to no error condition 
    9494      IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init) 
    95                              CALL iom_setkt( kstp )   ! say to iom that we are at time step kstp 
     95                             CALL iom_setkt( kstp -nit000 + 1 )   ! say to iom that we are at time step kstp 
    9696 
    9797      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.