LOGICAL useAIM
& useATM2D, useAIM, useLand, useFizhi, useGridAlt,
& (useAIM .AND. tracerIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr)
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr)
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr)
IF ( .NOT.useAIM ) THEN
IF ( useAIM ) THEN
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(
useAIM =.FALSE.
& useAIM,
IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)
IF (useAIM) CALL AIM_INITIALISE( myThid )