LOGICAL SHELFICEadvDiffHeatFlux
& SHELFICEadvDiffHeatFlux,
CALL WRITE_0D_L( SHELFICEadvDiffHeatFlux, INDEX_NONE,
SHELFICEadvDiffHeatFlux = .FALSE.
IF ( SHELFICEadvDiffHeatFlux ) dFac = 1. _d 0