PIO conflicts with non-zero NDEFHIS

[chuning]

When I compile with #PIO_LIB and run with a non-zero NDEFHIS value, ROMS reports the following runtime error

Run-Time Check Failure. The variable 'edit_file_struct_$NV' is being used in 'edit_multifile.f90(258,7)' without being defined

Upon a closer look it is the loop in line 424 of file ROMS/Utility/edit_multifile.F

Code: Select all

#if defined PIO_LIB && defined DISTRIBUTE
      S(ng)%pioFile%fh=-1                      ! closed file handler
      DO i=1,NV
        S(ng)%pioVar(i)%vd%varID=-1            ! variables IDs
        S(ng)%pioVar(i)%dkind=-1               ! variables data kind
        S(ng)%pioVar(i)%gtype=0                ! variables C-grid type
      END DO
      DO i=1,MT
        S(ng)%pioTrc(i)%vd%varID=-1            ! tracers IDs
        S(ng)%pioTrc(i)%dkind=-1               ! tracers data kind
        S(ng)%pioTrc(i)%gtype=0                ! tracers C-grid type
      END DO
#endif

The loop upper bound NV is defined in mod_ncparam but not loaded in this Subroutine. I temporarily fixed it by adding

USE mod_ncparam, ONLY : NV.

[arango]

Yes, thank you! Weird, my ifort compiler missed that one.