CALL DIAGNOSTICS_FRACT_FILL(
CALL DIAGNOSTICS_FRACT_FILL( snowPrc,
CALL DIAGNOSTICS_FRACT_FILL( siceAlb, iceMask, oneRL, 1,
SUBROUTINE DIAGNOSTICS_FRACT_FILL(