Nodes of different colours represent the following:
Solid arrows point from a submodule to the (sub)module which it is
descended from. Dashed arrows point from a module or program unit to
modules which it uses.
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