function [i_aste,j_aste]=switch_ijNordic_ijASTE(iNordic,jNordic,nf1);
%--------------------------------------------------
% function [i_aste,j_aste]=switch_ijNordic_ijASTE(iNordic,jNordic,nf1);
%
% ATN 14-Sep-2012
% switching between NordicSeas domain and new modified ASTE domain
% input:
%   [iNordic,jNordic] : [i,j] pair of Nordic indices
%   nf1               : native size of face 1, e.g., [270 450]
% output:
%   [i_aste,j_aste]   : [i,j] pair in new modified ASTE domain
%                       (from get_aste_tracer.m and get_aste_vector.m)
%--------------------------------------------------

i_aste=2*nf1(1)-jNordic+1;
j_aste=iNordic-(3*nf1(1)-nf1(2));

return
