IF (using_cost_altim) THEN
IF (using_cost_altim)
using_cost_altim = .FALSE.
CALL ECCO_CHECK_FILES( using_cost_altim,
& using_cost_altim,
logical using_cost_altim
& ' using_cost_altim[T=mdt,F=no]: ',using_cost_altim
if (using_cost_altim) then
using_cost_altim=.TRUE.
using_cost_altim=.FALSE.