IF (icefile==trim(fcpldsic)) THEN ! SIC=pICE(1-LIC-TER) pctsrf_t(:,is_sic,k)=fi_ice(:)(1.-pctsrf(:,is_lic)-pctsrf(:,is_ter)) ELSE IF (icefile==trim(fhistsic)) THEN ! SIC=pICE pctsrf_t(:,is_sic,k)=fi_ice(:) ELSE ! icefile==famipsic ! SIC=pICE-LIC