IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
IF ( useAIM ) THEN
IF (useAIM) CALL AIM_INITIALISE( myThid )
& useAIM,
useAIM=.FALSE.
IF ( useAIM )
IF ( useAIM ) CALL AIM_TENDENCY_APPLY_V(
IF ( useAIM ) CALL AIM_TENDENCY_APPLY_T(
IF ( useAIM ) CALL AIM_TENDENCY_APPLY_S(
IF ( useAIM ) CALL AIM_TENDENCY_APPLY_U(
LOGICAL useAIM
& useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO,
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr)
& (useAIM .AND. tracerIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr)
IF ( .NOT.useAIM ) THEN