Changeset 3701


Ignore:
Timestamp:
2012-11-28T10:57:47+01:00 (8 years ago)
Author:
smasson
Message:

dev_MERGE_2012: add missing modifications for xios

Location:
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r3680 r3701  
    9595      ENDIF 
    9696 
    97       call flush(numout) 
    9897      REWIND( numnam )           ! Read Namelist namsbc 
    9998      READ  ( numnam, namsbc ) 
    100       call flush(numout) 
    10199 
    102100      !                          ! overwrite namelist parameter using CPP key information 
     
    268266      !                                            !        forcing field computation         ! 
    269267      !                                            ! ---------------------------------------- ! 
    270  
    271       CALL iom_setkt( kt + nn_fsbc - 1 )                 ! in sbc, iom_put is called every nn_fsbc time step 
    272268      ! 
    273269      IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc 
     
    377373      ENDIF 
    378374      ! 
    379       CALL iom_setkt( kt )           ! iom_put outside of sbc is called at every time step 
    380       ! 
    381375      CALL iom_put( "utau", utau )   ! i-wind stress   (stress can be updated at  
    382376      CALL iom_put( "vtau", vtau )   ! j-wind stress    each time step in sea-ice) 
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r3680 r3701  
    7979   USE lib_mpp         ! distributed memory computing 
    8080#if defined key_iomput 
    81    USE mod_ioclient 
     81   USE xios 
    8282#endif 
    8383   USE sbctide, ONLY: lk_tide 
     
    199199      CALL cpl_prism_finalize           ! end coupling and mpp communications with OASIS 
    200200#else 
     201# if defined key_iomput 
     202      IF( Agrif_Root() ) THEN 
     203         CALL xios_finalize             ! end mpp communications 
     204      ENDIF 
     205# else 
    201206      IF( lk_mpp )   CALL mppstop       ! end mpp communications 
     207# endif 
    202208#endif 
    203209      ! 
     
    233239      IF( Agrif_Root() ) THEN 
    234240# if defined key_oasis3 || defined key_oasis4 
    235          CALL cpl_prism_init( ilocal_comm )                 ! nemo local communicator given by oasis 
     241         CALL cpl_prism_init( ilocal_comm )      ! nemo local communicator given by oasis 
     242         CALL xios_initialize( "oceanx",local_comm=ilocal_comm ) 
     243# else 
     244         CALL  xios_initialize( "nemo",return_comm=ilocal_comm ) 
    236245# endif 
    237          CALL  init_ioclient( ilocal_comm )                 ! exchange io_server nemo local communicator with the io_server 
    238246      ENDIF 
    239247      narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection 
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/step.F90

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