ww3_prnc.F90: SQRT of a negative number

[MatthewMasarik-NOAA]

Describe the bug
During the execution of program W3PRNC in the regtest ww3_ufs1.2 negative values are passed into the SQRT() function.

To Reproduce
Execute the following run_test taken from the matrix12 script generated from regtests/bin/matrix_ncep.

./bin/run_test -b slurm -o all -c hera.intel -S -T -s MPI_OMPH -w work_a -m grdset_a -f -p srun -n 140  -t 4 ../model12 ww3_ufs1.2

This bug was identified by hard-coding the UFS debug compile options into model/bin/cmplr.env

optc="$optc -O0 -check -check noarg_temp_created -check nopointer -warn -warn noerrors -fp-stack-check -fstack-protector-all -fpe0 -debug -ftrapuv -init=snan,arrays -link_mpi=dbg_mt"

Expected behavior
If you hard-code WW3 to use the UFS debug compile options shown above, the run will terminate with a forrtl: error (65): floating invalid. If you submit the test as is with no modifications the run will complete normally, no indication of the issue.

Screenshots
ww3_prnc.F90: The problematic line is shown commented out below, with write statements of the variable (A3) directly above.

ww3_prnc_glox_10m_wind.out: Output from the wind log file showing the result of the inserted write statements.

Additional context
In this test (ww3_ufs1.2) the negative values occur during the wind interpolation section. There were 27 values of A3(NX,NY) flagged as negative.