IF (aim_useMMsurfFc) THEN
& aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp,
LOGICAL aim_useMMsurfFc
IF (aim_useMMsurfFc .AND. aim_surfPotTemp) THEN
aim_useMMsurfFc = .FALSE.
CALL WRITE_0D_L( aim_useMMsurfFc, INDEX_NONE,
& aim_useFMsurfBC, aim_useMMsurfFc,