IF ( .NOT.useECCO ) THEN
LOGICAL useECCO
& useGrdchk, useSMOOTH, usePROFILES, useECCO, useCTRL,
IF ( useFLT .OR. useZonal_Filt .OR. useECCO ) THEN
IF ( useECCO ) CALL ECCO_PHYS( myThid )
useECCO =.FALSE.
useECCO =.TRUE.
IF (useECCO) useCAL = .TRUE.
CALL PACKAGES_PRINT_MSG( useECCO, 'ECCO', ' ' )
& useECCO,
IF (useECCO) CALL ECCO_CHECK( myThid )
IF (useECCO) THEN
IF ( useECCO ) CALL ECCO_INIT_VARIA( myThid )
IF ( useECCO ) then
if (.NOT.useECCO) then
IF (useECCO) CALL ECCO_COST_FINAL (myThid)