NOAA-EMC / RTOFS_GLO

0 stars 1 forks source link

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

Closed DanIredell-NOAA closed 11 months ago

DanIredell-NOAA commented 11 months ago

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 commented 11 months ago

Duplicate of issue #4