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