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.
Changeset 14364 – NEMO

Changeset 14364


Ignore:
Timestamp:
2021-02-01T09:50:21+01:00 (3 years ago)
Author:
deazer
Message:

Just a small change as nblen not declared

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/BDY/bdydta.F90

    r14267 r14364  
    366366      DO jbdy = 1, nb_bdy 
    367367         IF( dta_bdy(jbdy)%lneed_ssh ) THEN 
    368              nblen => idx_bdy(jbdy)%nblenrim 
    369              igrd  = 1 
    370              DO ib = 1, nblen(igrd) 
     368            igrd  = 1 
     369            DO ib = 1, idx_bdy(jbdy)%nblenrim(igrd)   ! ssh is used only on the rim 
    371370                ii = idx_bdy(jbdy)%nbi(ib,igrd) 
    372371                ij = idx_bdy(jbdy)%nbj(ib,igrd) 
Note: See TracChangeset for help on using the changeset viewer.