# Dry felsic rock (material with dry felsic melts data and wet quartzite disclocation creep parameters)
mat1=Material(k=2.75,H=1.5,RHO=2700,CP=1000,L=4.5e5,A=1.1e-4,n=4,Q=223,scaling=1,name="Dry Felsic Upper Crust",melts=dryFelsic,F=dryFF,T=dryFT,index=1)# A, Q, n: Wet Quartzite (Gleason and Tullis (1995))
# Wet felsic Rock (material with wet felsic melts data and wet quartzite disclocation creep parameters)
mat2=Material(k=2.75,H=1.5,RHO=2700,CP=1000,L=4.5e5,A=1.1e-4,n=4,Q=223,scaling=1,name="Wet Felsic Upper Crust",melts=wetFelsic,F=wetFF,T=wetFT,index=2)# A, Q, n: Wet Quartzite (Gleason and Tullis (1995))
# Wet intermediary rocks (materials with wet intermadiary melts data and wet quartzite)
mat3=Material(k=2.75,H=1.5,RHO=2700,CP=1000,L=4.0e5,A=1.1e-4,n=4,Q=223,scaling=1,name="Wet Intermediate Upper Crust",melts=wetImed,F=wetIF,T=wetIT,index=3)# A, Q, n: Wet Quartzite (Gleason and Tullis (1995))
"""
# Lower Crust:
# Dry mafic rock (materials with dry mafic melts data and Maryland Diabase)
mat4=Material(k=3.4,H=0.2,RHO=2900,CP=1000,L=4.0e5,A=8.0,n=4.7,Q=485,scaling=0.1,name="Dry Mafic Lower Crust",melts=dryMafic,F=dryMF,T=dryMT,index=4)# A, Q, n: Maryland Diabase (Strong) (Mackwell et al. (1998))
# Dry mafic rock (materials with dry mafic melts data and Undried Adirondack granulite)
mat5=Material(k=3.4,H=0.2,RHO=2900,CP=1000,L=4.0e5,A=1.4e4,n=4.2,Q=445,scaling=1,name="Dry Mafic Granulite Lower Crust",melts=dryMafic,F=dryMF,T=dryMT,index=5)# A, Q, n: Undried Pikwitonei granulite (Wilkin and Carter (1990))
Intrusions at MOHO must always be Dry Mafic in composition
Intrusions in the Crust can have any Rhyolite-MELTS data """
# Upper Crust:
# Dry felsic intrusion
mat7=Material(k=2.75,H=1.82,RHO=2650,CP=1100,L=4.0e5,A=2.0e-4,n=1.9,Q=140,scaling=1,name="Dry Felsic Granodiorite",melts=dryFelsic,F=dryFF,T=dryFT,index=7)# A, Q, n: Wet Granite (Mackwell et al. (1998))
mat8=Material(k=3.1,H=3.54,RHO=2700,CP=1100,L=4.0e5,A=2.0e-4,n=1.9,Q=140,scaling=1,name="Dry Felsic Granite",melts=dryFelsic,F=dryFF,T=dryFT,index=8)# A, Q, n: Wet Granite (Mackwell et al. (1998))
# Wet felsic intrusion
mat9=Material(k=2.75,H=1.82,RHO=2650,CP=1100,L=4.0e5,A=2.0e-4,n=1.9,Q=140,scaling=1,name="Wet Felsic Granodiorite",melts=wetFelsic,F=wetFF,T=wetFT,index=9)# A, Q, n: Wet Granite (Mackwell et al. (1998))
mat10=Material(k=3.1,H=3.54,RHO=2700,CP=1100,L=4.0e5,A=2.0e-4,n=1.9,Q=140,scaling=1,name="Wet Felsic Granite",melts=wetFelsic,F=wetFF,T=wetFT,index=10)# A, Q, n: Wet Granite (Mackwell et al. (1998))
# Wet intermediate intrusion
mat11=Material(k=3.2,H=1.20,RHO=2800,CP=1000,L=4.0e5,A=3.2e-2,n=2.4,Q=212,scaling=1,name="Wet Intermediate Diorite",melts=wetImed,F=wetIF,T=wetIT,index=11)# A, Q, n: Wet Diorite (Ranalli (1995))
# Wet mafic intrusion
mat12=Material(k=3.0,H=0.67,RHO=2900,CP=1000,L=4.0e5,A=5.0e9,n=3.4,Q=497,scaling=1,name="Wet Mafic Gabbroic Diorite",melts=wet2Mafic,F=wet2MF,T=wet2MT,index=12)# A, Q, n: Microgabbro (Wilks and Carter (1990))
mat13=Material(k=3.0,H=0.46,RHO=3000,CP=1000,L=4.0e5,A=5.0e9,n=3.4,Q=497,scaling=1,name="Wet Mafic Subalkalic Gabbro",melts=wet2Mafic,F=wet2MF,T=wet2MT,index=13)# A, Q, n: Microgabbro (Wilks and Carter (1990))
# Dry mafic intrusion
mat14=Material(k=3.0,H=0.46,RHO=3000,CP=1000,L=4.0e5,A=5.0e9,n=3.4,Q=497,scaling=1,name="Dry Mafic Subalkalic Gabbro",melts=dryMafic,F=dryMF,T=dryMT,index=14)# A, Q, n: Microgabbro (Wilks and Carter (1990))
mat15=Material(k=3.75,H=0.0,RHO=3200,CP=1300,L=3.5e5,A=5.0,n=3.5,Q=530,scaling=1,name="Dry Mafic Peridotite Gabbro",melts=dryMafic,F=dryMF,T=dryMT,index=15)# A, Q, n: Dry Olivine (Hirth and Kohlstedt (2003))
# Dry felsic rock (material with dry felsic melts data and wet quartzite disclocation creep parameters)
