Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Remove GOTO statements from the Fortran source code (bugzilla #310) #40

Closed
DanIredell-NOAA opened this issue Oct 18, 2023 · 1 comment
Closed
Labels
duplicate This issue or pull request already exists

Comments

@DanIredell-NOAA
Copy link
Contributor

http://www2.spa.ncep.noaa.gov/bugzilla/show_bug.cgi?id=310

goto count command

grep -ri 'go *to' . | grep -v -e '^c' -e '^!' | wc -l

Table of gotos

                                    V1 GOTOs        V2 GOTOs

In both V1 and V2
rtofs_archv2netCDF.fd 35 35
rtofs_atmforcing_correct.fd 0 0
rtofs_atmforcing.fd 1 0
rtofs_getkpds.fd 0 0
rtofs_hycom2raw8.fd 1 1
rtofs_hycom_expr.fd 2 0
rtofs_nc2grb2.fd 0 0
rtofs_hycomiot (library) 0 0
rtofs_mpi_mods (library) 0 0
39 36

REMOVED in V2
rtofs_cice_stat.fd 0 n/a
rtofs_hycom_extract.fd 2 n/a
rtofs_hycom_range.fd 1 n/a
rtofs_restart2archv.fd 20 n/a
23 0
NEW to V2
rtofs_hycom_diff.fd n/a 3
*rtofs_ncoda_archv_inc.fd n/a 19
rtofs_raw2hycom.fd n/a 1
0 23

TOTAL for EMC codes 62 59

3rd party codes
**HYCOM 162 98
*NCODA n/a 330

OVERALL TOTAL 224 487

@DanIredell-NOAA
Copy link
Contributor Author

Duplicate of issue #4

@DanIredell-NOAA DanIredell-NOAA added the duplicate This issue or pull request already exists label Nov 22, 2023
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
duplicate This issue or pull request already exists
Projects
None yet
Development

No branches or pull requests

1 participant