Changeset 8511
- Timestamp:
- 2017-09-07T17:53:42+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcbc.F90
r5215 r8511 277 277 ! OPEN boundary conditions: DOES NOT WORK. Waiting for stable BDY 278 278 IF( nb_trcobc > 0 ) THEN 279 if (lwp) write(numout,'(a,i5,a,i 5)') ' reading OBC data for ', nb_trcobc ,' variables at step ', kt279 if (lwp) write(numout,'(a,i5,a,i12)') ' reading OBC data for ', nb_trcobc ,' variables at step ', kt 280 280 CALL fld_read(kt,1,sf_trcobc) 281 281 ! vertical interpolation on s-grid and partial step to be added … … 284 284 ! SURFACE boundary conditions 285 285 IF( nb_trcsbc > 0 ) THEN 286 if (lwp) write(numout,'(a,i5,a,i 5)') ' reading SBC data for ', nb_trcsbc ,' variables at step ', kt286 if (lwp) write(numout,'(a,i5,a,i12)') ' reading SBC data for ', nb_trcsbc ,' variables at step ', kt 287 287 CALL fld_read(kt,1,sf_trcsbc) 288 288 ENDIF … … 290 290 ! COASTAL boundary conditions 291 291 IF( nb_trccbc > 0 ) THEN 292 if (lwp) write(numout,'(a,i5,a,i 5)') ' reading CBC data for ', nb_trccbc ,' variables at step ', kt292 if (lwp) write(numout,'(a,i5,a,i12)') ' reading CBC data for ', nb_trccbc ,' variables at step ', kt 293 293 CALL fld_read(kt,1,sf_trccbc) 294 294 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.