IF (aim_useFMsurfBC) THEN
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp,
LOGICAL aim_useFMsurfBC
ELSEIF (aim_useFMsurfBC) THEN
aim_useFMsurfBC = .TRUE.
CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE,
& aim_useFMsurfBC, aim_useMMsurfFc,