/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_exch/exch_UV_llc.m
ViewVC logotype

Contents of /MITgcm_contrib/gael/matlab_class/gcmfaces_exch/exch_UV_llc.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Sun May 2 21:06:29 2010 UTC (15 years, 2 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint65x, checkpoint65r, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, HEAD
migration of exchange routines to gcmfaces_exch

1 function [FLDU,FLDV]=exch_UV_llc(fldU,fldV);
2
3 FLDUtmp=exch_T_N(fldU);
4 FLDVtmp=exch_T_N(fldV);
5
6 FLDU=FLDUtmp;
7 FLDV=FLDVtmp;
8
9 FLDU.f1=FLDUtmp.f1(2:end,2:end-1,:);
10 FLDV.f1=FLDVtmp.f1(2:end-1,2:end,:);
11 FLDV.f1(:,end,:)=FLDUtmp.f1(2:end-1,end,:);
12
13 FLDU.f2=FLDUtmp.f2(2:end,2:end-1,:);
14 FLDU.f2(end,:,:)=FLDVtmp.f2(end,2:end-1,:);
15 FLDV.f2=FLDVtmp.f2(2:end-1,2:end,:);
16
17 FLDU.f3=FLDUtmp.f3(2:end,2:end-1,:);
18 FLDV.f3=FLDVtmp.f3(2:end-1,2:end,:);
19 FLDV.f3(:,end,:)=FLDUtmp.f3(2:end-1,end,:);
20
21 FLDU.f4=FLDUtmp.f4(2:end,2:end-1,:);
22 FLDV.f4=FLDVtmp.f4(2:end-1,2:end,:);
23
24 FLDU.f5=FLDUtmp.f5(2:end,2:end-1,:);
25 FLDV.f5=FLDVtmp.f5(2:end-1,2:end,:);
26 FLDV.f5(:,end,:)=FLDUtmp.f5(2:end-1,end,:);
27

  ViewVC Help
Powered by ViewVC 1.1.22