| 229 | |
| 230 | == a few words on coupling with OASIS == |
| 231 | |
| 232 | The coupling with OASIS is straightforward. |
| 233 | |
| 234 | The calls to `sbc_cpl_snd` in `step.F90` and `sbc_cpl_rcv` in `sbcmod.F90` are modified to use the absolute counter `istpswz` instead of `istp`. |
| 235 | In `step.F90`: |
| 236 | {{{ |
| 237 | !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
| 238 | ! Coupled mode |
| 239 | !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
| 240 | IF( lk_oasis ) CALL sbc_cpl_snd( istpswz ) ! coupled mode : field exchanges |
| 241 | }}} |
| 242 | |
| 243 | In `sbcmod.F90`: |
| 244 | {{{ |
| 245 | CASE( jp_purecpl ) ; CALL sbc_cpl_rcv ( istpswz, nn_fsbc, nn_ice ) ! pure coupled formulation |
| 246 | }}} |
| 247 | The only case treated is the pure coupling mode. |
| 248 | |