Skip to content
Snippets Groups Projects
sphere.dat 777 B
Newer Older
Nicolas Marsic's avatar
Nicolas Marsic committed
// Geometry //
DefineConstant[R  = { 100e-3, Name "Input/00Geometry/00Radius [m]" }];
Nicolas Marsic's avatar
Nicolas Marsic committed

// Mesh //
DefineConstant[md = { 10,     Name "Input/01Mesh/00Density [Radius^-1]" }];
cl = R/md;

// Material //
DefineConstant[isSC   = { 0,
                          Name "Input/02Material/00Is superconductor?",
                          GmshOption "Reset",
                          Choices {0 = "No", 1 = "Yes"} }];
If(isSC == 0)
DefineConstant[Sigma  = { 1e15,
                          Name "Input/02Material/01Conductivity [S m^-1]" }];
EndIf
If(isSC == 1)
DefineConstant[Sigma  = { 1e9,
                          Name "Input/02Material/01Conductivity [S m^-1]" }];
DefineConstant[Lambda = { 1e-8,
                          Name "Input/02Material/02London depth [m]"      }];
EndIf