Run-time check failure in ww3_prnc.F90

[MatthewMasarik-NOAA]

Describe the bug
Running a Debug build with additional flags captures a "forrtl: severe (194): Run-Time Check Failure" during execution of ww3_prnc.

To Reproduce

• Ensure that WW3 builds in Debug cmake type, and additionally, appends these compile flags:

-fno-omit-frame-pointer -fsanitize=address

Expected behavior

   Processing /scratch1/NCEPDEV/climate/Matthew.Masarik/projs/reproduce_mpi/regtest_ww3_ufs1.1-unstr/mem_runs/ww3-mpi-flags-2/regtests/ww3_repro/input/ww3_prnc_wind.inp
   Screen output routed to /scratch1/NCEPDEV/climate/Matthew.Masarik/projs/reproduce_mpi/regtest_ww3_ufs1.1-unstr/mem_runs/ww3-mpi-flags-2/regtests/ww3_repro/work_pdlib_40/ww3_prnc_wind.out
forrtl: severe (194): Run-Time Check Failure. The variable 'w3prnc_$IY' is being used in '/scratch1/NCEPDEV/climate/Matthew.Masarik/projs/reproduce_mpi/regtest_ww3_ufs1.1-unstr/mem_runs/ww3-mpi-flags-2/model/src/ww3_prnc.F90(1070,55)' without being defined
Image              PC                Routine            Line        Source             
ww3_prnc           0000000000449FBF  MAIN__                   1070  ww3_prnc.F90
ww3_prnc           000000000040DAD2  Unknown               Unknown  Unknown
libc-2.17.so       00002B187EAEA555  __libc_start_main     Unknown  Unknown
ww3_prnc           000000000040D9E9  Unknown               Unknown  Unknown

ERROR: Error occured during /scratch1/NCEPDEV/climate/Matthew.Masarik/projs/reproduce_mpi/regtest_ww3_ufs1.1-unstr/mem_runs/ww3-mpi-flags-2/regtests/ww3_repro/work_pdlib_40/exe/ww3_prnc execution

This occurs in a diagnostic WRITE statement involving grid index (IY), which is not in scope at the time. See screenshot.

Screenshots

      ELSE ! GTYPE .NE. UNGTYPE                                                        
        DO IX=1, NX                                                                    
          X = XGRD(1,IX)                                                               
          Y = YGRD(1,IX)                                                               
          IX21(IX,1) =   1 + INT(MOD(360.+(X-X0I),360.)/SXI)                           
          !                                                                            
          ! Manages the simple closure of the grid                                     
          !                                                                            
          IF (ICLO.EQ.ICLOSE_NONE) THEN                                                
            IF (IX21(IX,1).LT.1.OR.IX21(IX,1).GT.NXI-1) WRITE(NDSO,1042) IX, IY, X, Y

Additional context
NA.