MASS_COMPO in TELEMAC2D/TELEMAC3D
Variable MASS_COMPO is declared as a fixed-sized vector of 10. However it is used in an iterative loop from 1 to the number of unsoluble component NB_COMPO in streamline.f :
DO K=1,NB_COMPO HEAPOIL(NCHARA)%MASS_COMPO(K)= & PARTICULES(IPLOT)%COMPO(K)%MASS HEAPOIL(NCHARA)%TB_COMPO(K)=PARTICULES(IPLOT)%COMPO(K)%TB HEAPOIL(NCHARA)%SOL_COMPO(K)=PARTICULES(IPLOT)%COMPO(K)%SOL ENDDO
If the number of unsoluble oil components is above 10 in the oispill steering file, there is a mismatch with the declared array size for MASS_COMPO, as detected by the compiler ( with more strict options ) :
forrtl: severe (408): fort: (2): Subscript #1 of the array MASS_COMPO has value 11 which is greater than the upper bound of 10.
I suppose there is the same issue for TB_COMPO, SOL_COMPO, and MASS_HAP, TB_HAP, SOL_HAP declared as fixed-sized vector of 10.