Changeset 14364

Timestamp:

2021-02-01T09:50:21+01:00 (4 years ago)

Author:

deazer

Message:

Just a small change as nblen not declared

File:

• NEMO/branches/NERC/NEMO_4.0.4_CO9_package_tides/src/OCE/BDY/bdydta.F90 (modified) (1 diff)

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

@@ -366 +366 @@
       DO jbdy = 1, nb_bdy
          IF( dta_bdy(jbdy)%lneed_ssh ) THEN
-             nblen => idx_bdy(jbdy)%nblenrim
-             igrd  = 1
-             DO ib = 1, nblen(igrd)
+            igrd  = 1
+            DO ib = 1, idx_bdy(jbdy)%nblenrim(igrd)   ! ssh is used only on the rim
                 ii = idx_bdy(jbdy)%nbi(ib,igrd)
                 ij = idx_bdy(jbdy)%nbj(ib,igrd)