/[MITgcm]/MITgcm_contrib/osse/utils/hmaker.m
ViewVC logotype

Diff of /MITgcm_contrib/osse/utils/hmaker.m

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

revision 1.1 by afe, Tue Jun 8 19:38:54 2004 UTC revision 1.2 by afe, Thu Jun 10 16:21:40 2004 UTC
# Line 9  fid = fopen('hfile.txt','w') Line 9  fid = fopen('hfile.txt','w')
9    
10  for i=1:nf  for i=1:nf
11     for j=1:nz     for j=1:nz
12        for k=1:ny % get every other ring        for k=1:ny
13          for l=1:nx          for l=1:nx
14              if (any(j==[5 10 15 20 25]) && ... % 5 levels              if (any(j==[5 10 15 20 25]) && ... % 5 levels
15                  any(i==[1 2]) && ... % u, v                  any(i==[1 2]) && ... % u, v
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22