svsnad.f File Reference

Functions/Subroutines
subroutine	svsnad (IYEAR, ISNADD, NSNGS, ISWTCH)

Function/Subroutine Documentation

subroutine svsnad	(	integer	IYEAR,
		integer, dimension(mxsvob)	ISNADD,
		integer	NSNGS,
		integer	ISWTCH
	)

IYOFTD = IYEAR

ELSE

NOTE: logic to spread mortality across years in current growth period is disabled, in order to match FFE logic.

IF (IYOFTD+1 .LT. IY(ITCYC+1) .AND. ISWTCH.NE.4) THEN IYOFTD=IYOFTD+1 ELSE IYOFTD=IYEAR ENDIF IF ( ISWTCH .EQ. 1 ) THEN IYOFTD=IYEAR ENDIF

ELSE

NOTE: logic to spread mortality across years in current growth period is disabled, in order to match FFE logic.

IF (IYOFTD+1.LT.IY(ITCYC+1).AND. ISWTCH.NE.4) THEN IYOFTD=IYOFTD+1 ELSE IYOFTD=IYEAR ENDIF IF ( ISWTCH .EQ. 1 ) THEN IYOFTD=IYEAR ENDIF

ELSE

NOTE: logic to spread mortality across years in current growth period is disabled, in order to match FFE logic.

IF (IYOFTD+1.LT.IY(ITCYC+1) .AND. ISWTCH.NE.4) THEN IYOFTD=IYOFTD+1 ELSE IYOFTD=IYEAR ENDIF IF ( ISWTCH .EQ. 1 ) THEN IYOFTD=IYEAR ENDIF

Here is the call graph for this function:

Here is the caller graph for this function: