- Timestamp:
- 2015-07-02T16:00:36+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r5449 r5535 53 53 USE timing ! Timing 54 54 USE sbcwave ! Wave module 55 USE bdy_par ! Require lk_bdy 55 56 56 57 IMPLICIT NONE … … 343 344 ! ! ---------------------------------------- ! 344 345 ! 345 IF( ln_apr_dyn ) CALL sbc_apr( kt ) ! atmospheric pressure provided at kt+0.5*nn_fsbc 346 IF ( .NOT. lk_bdy ) then 347 IF( ln_apr_dyn ) CALL sbc_apr( kt ) ! atmospheric pressure provided at kt+0.5*nn_fsbc 348 ENDIF 346 349 ! (caution called before sbc_ssm) 347 350 !
Note: See TracChangeset
for help on using the changeset viewer.