


ICETRANSIENT - transient solution
Usage:
md=icetransient(md)

0001 function md=icetransient(md); 0002 %ICETRANSIENT - transient solution 0003 % 0004 % Usage: 0005 % md=icetransient(md) 0006 0007 %define global variables 0008 iceglobal 0009 0010 %determine if run is parallel 0011 if strcmpi(md.cluster,'yes'), cluster=1; else cluster=0;end; 0012 0013 %for now, only serial support is in 0014 if cluster, 0015 error('icetransient error message: parallel support not implemented yet'); 0016 end 0017 0018 if strcmpi(md.type,'2d'), 0019 md=icetransient2d(md); 0020 else 0021 md=icetransient3d(md); 0022 end