gotos in model/src/wav_shel_inp.F90

[JessicaMeixner-NOAA]

We have goto's in the routine:

model/src/wav_shel_inp.F90:392: if (flagsc(1) .and. inflags1(2) .and. .not. flagsc(2)) goto 2102
model/src/wav_shel_inp.F90:393: if (flagsc(2) .and. inflags1(1) .and. .not. flagsc(1)) goto 2102
model/src/wav_shel_inp.F90:510: goto 2009
model/src/wav_shel_inp.F90:533: if ( ierr .ne. 0 ) goto 2222
model/src/wav_shel_inp.F90:554: goto 2054
model/src/wav_shel_inp.F90:637: if ( ierr .ne. 0 ) goto 2222
model/src/wav_shel_inp.F90:656: if ( ierr .ne. 0 ) goto 2222
model/src/wav_shel_inp.F90:688: if ( nh(j) .gt. nhmax ) goto 2006
model/src/wav_shel_inp.F90:728: goto 2062
model/src/wav_shel_inp.F90:769: ( flh(10) .and. (nh(10).eq.0) ) ) goto 2007
model/src/wav_shel_inp.F90:858: if (flagsc(1) .and. inflags1(2) .and. .not. flagsc(2)) goto 2102
model/src/wav_shel_inp.F90:859: if (flagsc(2) .and. inflags1(1) .and. .not. flagsc(1)) goto 2102
model/src/wav_shel_inp.F90:960: if ( ierr .ne. 0 ) goto 2222
model/src/wav_shel_inp.F90:1032: if ( ierr .ne. 0 ) goto 2222
model/src/wav_shel_inp.F90:1054: goto 2054
model/src/wav_shel_inp.F90:1142: if ( ierr .ne. 0 ) goto 2222
model/src/wav_shel_inp.F90:1177: idtst.ne.idstr(10) .and. idtst.ne.'STP' ) goto 2005
model/src/wav_shel_inp.F90:1191: if ( nh(j) .gt. nhmax ) goto 2006
model/src/wav_shel_inp.F90:1257: ( flh(10) .and. (nh(10).eq.0) ) ) goto 2007
model/src/wav_shel_inp.F90:1304: if ( dttst .le. 0. ) goto 2003
model/src/wav_shel_inp.F90:1448: goto 2222