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

Annotation of /MITgcm_contrib/gael/matlab_class/gcmfaces_exch/exch_UV_cube.m

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


Revision 1.1 - (hide 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 gforget 1.1 function [FLDU,FLDV]=exch_UV_cube(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     FLDU.f4(end,:,:)=FLDVtmp.f4(end,2:end-1,:);
23     FLDV.f4=FLDVtmp.f4(2:end-1,2:end,:);
24     %?? u
25    
26     FLDU.f5=FLDUtmp.f5(2:end,2:end-1,:);
27     FLDV.f5=FLDVtmp.f5(2:end-1,2:end,:);
28     FLDV.f5(:,end,:)=FLDUtmp.f5(2:end-1,end,:);
29    
30     FLDU.f6=FLDUtmp.f6(2:end,2:end-1,:);
31     FLDU.f6(end,:,:)=FLDVtmp.f6(end,2:end-1,:);
32     FLDV.f6=FLDVtmp.f6(2:end-1,2:end,:);
33     %??u
34    

  ViewVC Help
Powered by ViewVC 1.1.22