Changeset 44 for vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
- Timestamp:
- 08/31/12 15:41:37 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4 r44 64 64 !!---------------------------------------------------------------------- 65 65 !! NEMO/OPA 4.0 , NEMO-consortium (2011) 66 !! $Id: sbcmod.F90 3 294 2012-01-28 16:44:18Z rblod $66 !! $Id: sbcmod.F90 3415 2012-06-15 13:29:37Z rblod $ 67 67 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 68 68 !!---------------------------------------------------------------------- … … 241 241 ! ! ---------------------------------------- ! 242 242 243 CALL iom_setkt( kt + nn_fsbc - 1 ) ! in sbc, iom_put is called every nn_fsbc time step243 ! CALL iom_setkt( kt + nn_fsbc - 1 ) ! in sbc, iom_put is called every nn_fsbc time step 244 244 ! 245 245 IF( ln_apr_dyn ) CALL sbc_apr( kt ) ! atmospheric pressure provided at kt+0.5*nn_fsbc … … 344 344 ENDIF 345 345 ! 346 CALL iom_setkt( kt ) ! iom_put outside of sbc is called at every time step346 ! CALL iom_setkt( kt ) ! iom_put outside of sbc is called at every time step 347 347 ! 348 348 CALL iom_put( "utau", utau ) ! i-wind stress (stress can be updated at
Note: See TracChangeset
for help on using the changeset viewer.