Changeset 3701 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2012-11-28T10:57:47+01:00 (11 years ago)

Author:

smasson

Message:

dev_MERGE_2012: add missing modifications for xios

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (3 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -95 +95 @@
       ENDIF
 
-      call flush(numout)
       REWIND( numnam )           ! Read Namelist namsbc
       READ  ( numnam, namsbc )
-      call flush(numout)
 
       !                          ! overwrite namelist parameter using CPP key information
@@ -268 +266 @@
       !                                            !        forcing field computation         !
       !                                            ! ---------------------------------------- !
-
-      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
@@ -377 +373 @@
       ENDIF
       !
-      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 
       CALL iom_put( "vtau", vtau )   ! j-wind stress    each time step in sea-ice)