- Timestamp:
- 2018-01-18T13:14:23+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8756 r9259 317 317 !! - updte the ice fraction : fr_i 318 318 !!---------------------------------------------------------------------- 319 USE bdydta, ONLY: bdy_dta 320 ! 319 321 INTEGER, INTENT(in) :: kt ! ocean time step 320 322 !!--------------------------------------------------------------------- … … 337 339 ! ! ---------------------------------------- ! 338 340 ! 339 IF ( .NOT. lk_bdy ) then 340 IF( ln_apr_dyn ) CALL sbc_apr( kt ) ! atmospheric pressure provided at kt+0.5*nn_fsbc 341 ENDIF 341 342 IF( ln_apr_dyn ) CALL sbc_apr( kt ) ! atmospheric pressure provided at kt+0.5*nn_fsbc 342 343 ! (caution called before sbc_ssm) 343 344 ! … … 376 377 IF( ln_mixcpl .OR. ln_wavcpl ) CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice ) ! forced-coupled mixed formulation after forcing 377 378 378 IF ( ln_wave .AND. (ln_tauoc .OR. ln_tauw) ) CALL sbc_stress( ) ! Wave stress update 379 IF( ln_wave .AND. (ln_tauoc .OR. ln_tauw) ) CALL sbc_stress( ) ! Wave stress update 380 IF( lk_bdy ) CALL bdy_dta ( kt, time_offset=+1 ) ! update dynamic & tracer data at open boundaries 381 ! (caution called after sbc_ssm[_cpl] and before ice) 379 382 380 383 ! !== Misc. Options ==!
Note: See TracChangeset
for help on using the changeset viewer.