97 times = arguments->
times;
107 disk_id = arguments->
idisk;
108 iedge = arguments->
iedge;
109 yts = arguments->
yts;
130 blocky_zhload=xNew<IssmDouble>(Ntime);
131 for(i=0;i<Ntime;i++){
132 blocky_zhload[i]=hes[i];
136 blockt_time=xNew<IssmDouble>(Ntimp);
137 for (i=0;i<Ntimp;i++){
138 blockt_time[i]=times[i]/1000.0/yts;
139 if(i==numtimes-1)blockt_time[i]=times[numtimes-1]/1000.0/yts;
140 if(i==numtimes)blockt_time[i]=times[numtimes-1]/1000.0/yts;
144 blockt_bi=xNew<IssmDouble>(Ntimm);
147 blockt_dmi=xNew<IssmDouble>(Ntimm);
154 distme_(&Ntime,&Ntimp,&Ntimm,blockt_time,blockt_bi,blockt_dmi,blocky_zhload);
157 what0_(&iedge,&Ntimp,&Ntimm,blockt_time,blockt_bi,blockt_dmi);
166 xDelete<IssmDouble>(blockt_time);
167 xDelete<IssmDouble>(blockt_bi);
168 xDelete<IssmDouble>(blockt_dmi);
169 xDelete<IssmDouble>(blocky_zhload);