0001 function displaybc(md)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 disp(sprintf(' Boundary conditions:'));
0012 disp(sprintf(' diagnostic:'));
0013 disp(sprintf(' gridondirichlet_diag: (%i)',length(md.gridondirichlet_diag)));
0014 disp(sprintf(' dirichletvalues_diag [m/a]: (%i,%i)',length(md.dirichletvalues_diag),2));
0015 disp(sprintf(' segmentonneumann_diag: (%i)',length(md.segmentonneumann_diag)));
0016 disp(sprintf(' neumannvalues_diag [N]: (%i)',length(md.neumannvalues_diag)));
0017
0018 disp(sprintf(' prognostic:'));
0019 disp(sprintf(' gridondirichlet_prog: (%i)',length(md.gridondirichlet_prog)));
0020 disp(sprintf(' dirichletvalues_prog [m/a]: (%i)',length(md.dirichletvalues_prog)));
0021 disp(sprintf(' segmentonneumann_prog (flux): (%i)',length(md.segmentonneumann_prog)));
0022 disp(sprintf(' neumannvalues_prog [N]: (%i)',length(md.neumannvalues_prog)));
0023 disp(sprintf(' segmentonneumann_prog2 (thickness gradient): (%i)',length(md.segmentonneumann_prog2)));
0024 disp(sprintf(' neumannvalues_prog2 [N]: (%i)',length(md.neumannvalues_prog2)));
0025
0026 disp(sprintf(' thermal:'));
0027 disp(sprintf(' gridondirichlet_thermal: (%i)',length(md.gridondirichlet_thermal)));
0028 disp(sprintf(' dirichletvalues_thermal [K]: (%i)',length(md.dirichletvalues_thermal)));
0029 disp(sprintf(' melting [m/a]: (%i)',length(md.melting)));