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.
#1860 (obsolete features) – NEMO

Opened 6 years ago

Closed 6 years ago

#1860 closed Enhancement (fixed)

obsolete features

Reported by: clem Owned by: mchekki
Priority: low Milestone:
Component: OCE Version: trunk
Severity: Keywords:
Cc:

Description

Reminder: there are still few locations in the trunk where the Fortran instruction GOTO is used:

OFF_SRC/nemogcm.F90:      IF( kn == 1 )   GOTO 20
OPA_SRC/nemogcm.F90:      IF( kn == 1 )   GOTO 20
SAO_SRC/nemogcm.F90:      IF( kn == 1 )   GOTO 20
SAS_SRC/nemogcm.F90:      IF( kn == 1 )   GOTO 20
TOP_SRC/PISCES/SED/sedco3.F90:                     GOTO 10001
TOP_SRC/PISCES/SED/sedco3.F90:                  GOTO 10001
OPA_SRC/FLO/floblk.F90:         GO TO 222

I suppose we want to get rid of them at some point since this is an obsolete feature? Or is this ticket irrelevant?

Commit History (2)

ChangesetAuthorTimeChangeLog
8545timgraham2017-09-20T09:42:29+02:00

Remove last GOTO statement (ticket #1860)

8528timgraham2017-09-15T16:43:25+02:00

First set of fixes for #1860 (getting rid of GOTO statements)

Change History (3)

comment:1 Changed 6 years ago by clevy

  • Owner changed from nemo to mchekki

comment:2 Changed 6 years ago by timgraham

All versions of nemogcm.F90 fixed at r8528

comment:3 Changed 6 years ago by timgraham

  • Resolution set to fixed
  • Status changed from new to closed

Fixed in sedco3.F90 at r8545.

Note: See TracTickets for help on using tickets.