83 double posnu_length=posnu.
Mag();
85 double lon,lat,lon_old,lat_old;
95 double costheta=-1*(posnu*ntemp)/posnu_length;
99 double b=-1*2*posnu_length*costheta;
100 double c=posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
112 distance=(-1*b+sqrt(b*b-4*a*c))/2;
116 r_out = posnu + distance*ntemp;
122 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
127 distance=distance/2.;
129 r_out = posnu + distance*ntemp;
132 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
134 distance=distance/2.;
136 r_out = posnu + distance*ntemp;
139 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
142 distance=distance/2.;
144 r_out = posnu + distance*ntemp;
147 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
155 r_out=antarctica->
Surface(lon,lat)/posnu.
Mag()*posnu;
166 distance=distance*1.5;
168 r_out = posnu + distance*ntemp;
171 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
174 distance=distance*2./3.;
175 r_out = posnu + distance*ntemp;
178 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
189 distance=distance*1.5;
191 r_out = posnu + distance*ntemp;
194 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
197 distance=distance*5./6.;
199 r_out = posnu + distance*ntemp;
202 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
205 distance=distance*4./5.;
206 r_out = posnu + distance*ntemp;
209 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
219 distance=distance*7./6.;
221 r_out = posnu + distance*ntemp;
224 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
228 distance=distance*6./7.;
230 r_out = posnu + distance*ntemp;
233 c = posnu_length*posnu_length - pow(antarctica->
Surface(lon,lat),2);
246 distance=(-1*b+sqrt(b*b-4*a*c))/2;
247 r_out = posnu + distance*ntemp;