MODULE SFnTyp_Module
   SAVE
   CHARACTER(LEN=3) :: sfuntype='ABM'
   NAMELIST/sfntyp/ sfuntype
END MODULE SFnTyp_Module