Hi, everyone
When I read the telemac2d.f, I have some questions:
IF(NTRAC.GT.0.AND.DIFT) THEN
DO ITRAC=1,NTRAC
CALL OS( 'X=Y ' , X=VISCT%ADR(ITRAC)%P , Y=VISC )
CALL OS( 'X=X+C ' , X=VISCT%ADR(ITRAC)%P , C=DIFNU-PROPNU )
!DIFNU: COEFFICIENT FOR DIFFUSION OF TRACERS
!PROPNU: VELOCITY DIFFUSIVITY
!VISC: VELOCITY DIFFUSIVITY: VELOCITY
!VISCT: VELOCITY DIFFUSIVITY: TRACERS
ENDDO
ENDIF
What's the mean of this program? What's the difference among DIFNU, PROPNU, VISC and VISCT?
Thank you very much.