- Timestamp:
- 2019-12-14T09:41:16+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trcbc.F90
r12193 r12250 367 367 IF( PRESENT(jit) ) THEN 368 368 ! 369 ! OPEN boundary conditions (use kt_offset=+1as they are applied at the end of the step)369 ! OPEN boundary conditions (use pt_offset=1. as they are applied at the end of the step) 370 370 IF( nb_trcobc > 0 ) THEN 371 371 if (lwp) write(numout,'(a,i5,a,i10)') ' reading OBC data for ', nb_trcobc ,' variable(s) at step ', kt 372 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, kit=jit, kt_offset=+1)372 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, kit=jit, pt_offset=1.) 373 373 ENDIF 374 374 ! … … 387 387 ELSE 388 388 ! 389 ! OPEN boundary conditions (use kt_offset=+1as they are applied at the end of the step)389 ! OPEN boundary conditions (use pt_offset=1. as they are applied at the end of the step) 390 390 IF( nb_trcobc > 0 ) THEN 391 391 if (lwp) write(numout,'(a,i5,a,i10)') ' reading OBC data for ', nb_trcobc ,' variable(s) at step ', kt 392 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, kt_offset=+1)392 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, pt_offset=1.) 393 393 ENDIF 394 394 !
Note: See TracChangeset
for help on using the changeset viewer.