Changes between Version 12 and Version 13 of 2011WP/2011Stream2/Open Boundaries


Ignore:
Timestamp:
2011-03-29T13:48:51+02:00 (10 years ago)
Author:
davestorkey
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • 2011WP/2011Stream2/Open Boundaries

    v12 v13  
    237237         ELSE 
    238238            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 ) ) 
    240240         ENDIF 
    241241 
     
    251251            IF( nn_tra(ib_set) .gt. 0 ) THEN 
    252252               jpfld = jpfld + 1 
    253                sshbdy(ib_set,:) = bf(jpfld)%fnow 
     253               tbdy(ib_set,:) = bf(jpfld)%fnow 
    254254               .... 
    255255