Possible bugs in def_state.F

[backkom]

Hi,

I am trying the latest ROMS package, and got a error when compiling with sediment module.

cd /lustre/home/yaozhigang/Projects/Yandong/Build_roms; /opt/intel/compilers_and_libraries_2019.5.281/linux/mpi/intel64/bin/mpiifort -c -fp-model precise -heap-arrays -ip -O3 -traceback -check uninit def_gst.f90
def_state.f90(321): error #6404: This name does not have a type, and must have an explicit type. [IDSED]
IF (itrc.eq.idsed(i)) THEN
------------------------^
def_state.f90(322): error #6404: This name does not have a type, and must have an explicit type. [SD50]
WRITE (Vinfo(19),40) 1000.0_r8*Sd50(i,ng)
---------------------------------------------^
compilation aborted for def_state.f90 (code 1)


After check the code ROMS/Utility/def_state.F, I think maybe we need to include mod_sediment in the beginginng

# if defined SEDIMENT || defined BBL_MODEL
USE mod_sediment
# endif

Best,

Zhigang

[arango]

Yes, thank you. Please update your code.