Changes between Version 12 and Version 13 of 2011WP/2011Stream2/OpenBoundaries
- Timestamp:
- 2011-03-29T13:48:51+02:00 (13 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
2011WP/2011Stream2/OpenBoundaries
v12 v13 237 237 ELSE 238 238 jend = jstart + nb_obc(ib_set) - 1 239 CALL fld_read( kt, nn_fobc, bf( ib_set, 1:nb_dta(ib_set) )239 CALL fld_read( kt, nn_fobc, bf(jstart:jend ) ) 240 240 ENDIF 241 241 … … 251 251 IF( nn_tra(ib_set) .gt. 0 ) THEN 252 252 jpfld = jpfld + 1 253 sshbdy(ib_set,:) = bf(jpfld)%fnow253 tbdy(ib_set,:) = bf(jpfld)%fnow 254 254 .... 255 255