New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
2011WP/2011Stream2/OpenBoundaries (diff) – NEMO

Changes between Version 12 and Version 13 of 2011WP/2011Stream2/OpenBoundaries


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

--

Legend:

Unmodified
Added
Removed
Modified
  • 2011WP/2011Stream2/OpenBoundaries

    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