Changeset 65 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

01/02/13 18:50:00 (12 years ago)

Author:

smasson

Message:

bugfix for agrf, obc and xios

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (4 diffs)

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

@@ -63 +63 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 4.0 , NEMO-consortium (2011) 
-   !! $Id: sbcmod.F90 3415 2012-06-15 13:29:37Z rblod $
+   !! $Id: sbcmod.F90 3294 2012-01-28 16:44:18Z rblod $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -200 +200 @@
 
       IF( nn_ice == 4 )   CALL cice_sbc_init (nsbc)
+
+!EM modif XIOS/OASIS-MCT compliance
+      IF( nsbc == 5 )   CALL sbc_cpl_init (nn_ice)
       !
    END SUBROUTINE sbc_init
@@ -240 +243 @@
       !                                            ! ---------------------------------------- !
 
-!      CALL iom_setkt( kt + nn_fsbc - 1 )                 ! in sbc, iom_put is called every nn_fsbc time step
+!     CALL iom_setkt( kt + nn_fsbc - 1 )                 ! in sbc, iom_put is called every nn_fsbc time step
       !
       IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc
@@ -343 +346 @@
       ENDIF
       !
-!      CALL iom_setkt( kt )           ! iom_put outside of sbc is called at every time step
+!     CALL iom_setkt( kt )           ! iom_put outside of sbc is called at every time step
       !
       CALL iom_put( "utau", utau )   ! i-wind stress   (stress can be updated at