/[MITgcm]/MITgcm_contrib/ocean_inversion_project/README
ViewVC logotype

Diff of /MITgcm_contrib/ocean_inversion_project/README

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

revision 1.3 by dimitri, Tue Sep 23 04:34:23 2003 UTC revision 1.7 by dimitri, Fri Sep 26 20:01:41 2003 UTC
# Line 35  salinity initial and boundary conditions Line 35  salinity initial and boundary conditions
35   cp ../verification/global_with_exf/code/* .   cp ../verification/global_with_exf/code/* .
36   cp ../ocean_inversion_project/code/.genmakerc .   cp ../ocean_inversion_project/code/.genmakerc .
37   cp ../ocean_inversion_project/code/* .   cp ../ocean_inversion_project/code/* .
38   cp ptracers_forcing.F.test ptracers_forcing.F   rm ptracers_*.F
  rm ptracers_init.F ptracers_forcing.F  
39   ../tools/genmake   ../tools/genmake
40   make depend   make depend
41   make   make
# Line 51  salinity initial and boundary conditions Line 50  salinity initial and boundary conditions
50   cp ../ocean_inversion_project/input/* .   cp ../ocean_inversion_project/input/* .
51   cp data.test data   cp data.test data
52   cp data.ptracers.test data.ptracers   cp data.ptracers.test data.ptracers
53   mitgcmuv > output .txt   mitgcmuv > output.txt
54        
55  5 ===> check that PTRACER output for tracer 1 and tracer 30  5 ===> check that PTRACER output and salinity output are identical.
   ===> is identical to salinity output  
56    
57   diff PTRACER01.0000000020.001.001.data S.0000000020.001.001.data   diff PTRACER01.0000000020.001.001.data S.0000000020.001.001.data
58   diff PTRACER30.0000000020.001.001.data S.0000000020.001.001.data   diff PTRACER30.0000000020.001.001.data S.0000000020.001.001.data
# Line 102  clf, contourf(lon,lat,mean(tak(:,:,1),3) Line 100  clf, contourf(lon,lat,mean(tak(:,:,1),3)
100  caxis([-6 6]), colorbar, plotland  caxis([-6 6]), colorbar, plotland
101    
102  % some matlab code for looking at PTRACER output files  % some matlab code for looking at PTRACER output files
103    salt=readbin('S.0000000020.001.001.data',[90 40 15],1);
104  tracer=zeros(90,40,15,30);  tracer=zeros(90,40,15,30);
105  for i=1:30  for i=1:30
106   fn=['PTRACER' myint2str(i) '.0000000020.001.001.data'];   fn=['PTRACER' myint2str(i) '.0000000020.001.001.data'];
# Line 109  for i=1:30 Line 108  for i=1:30
108   clf, mypcolor(tracer(:,:,1,i)'); pause(1)   clf, mypcolor(tracer(:,:,1,i)'); pause(1)
109  end  end
110  tmp=sum(tracer,4); clf, mypcolor(tmp(:,:,1)')  tmp=sum(tracer,4); clf, mypcolor(tmp(:,:,1)')
111    mypcolor(
112    
 % some matlab code for checking that one year's worth of  
 % tracer uptake is approximately 1e18 mols.  
 lon=2:4:360; lat=-78:4:78;  
 thk=[50 70 100 140 190 240 290 340 390 440 490 540 590 640 690];  
 tracer=zeros(90,40,15,30); sumtracer1=zeros(30,1);  
 for i=1:30, mydisp(i)  
  fn=['PTRACER' myint2str(i) '.0000000180.001.001.data'];  
  tracer(:,:,:,i)=readbin(fn,[90 40 15],1);  
  for x=1:length(lon)  
   for y=1:length(lat)  
    for z=1:length(thk)  
     sumtracer1(i) = sumtracer1(i) + tracer(x,y,z,i) * ...  
                     thk(z) * (4*1.113195e+05)^2 * cos(pi*lat(y)/180);  
    end  
   end  
  end  
 end  
113    
114  % some matlab code for checking that one year's worth of  % some matlab code for checking that one year's worth of
115  % tracer uptake is approximately 1e18 mols.  % tracer uptake is approximately 1e18 mols.
116  lon=2:4:360; lat=-78:4:78;  lon=2:4:360; lat=-78:4:78;
117  thk=[50 70 100 140 190 240 290 340 390 440 490 540 590 640 690];  thk=[50 70 100 140 190 240 290 340 390 440 490 540 590 640 690];
118    mask=readbin('hFacC.001.001.data',[90 40 15],1);
119  tracer=zeros(90,40,15,30); sumtracer=zeros(30,1);  tracer=zeros(90,40,15,30); sumtracer=zeros(30,1);
120  for i=1:30, mydisp(i)  for i=1:30, mydisp(i)
121   fn=['PTRACER' myint2str(i) '.0000000180.001.001.data'];   fn=['PTRACER' myint2str(i) '.0000001800.001.001.data'];
122   tracer(:,:,:,i)=readbin(fn,[90 40 15],1);   tracer(:,:,:,i)=readbin(fn,[90 40 15],1);
123   for j=1:length(lat)   for j=1:length(lat)
124    for k=1:length(thk)    for k=1:length(thk)
125     sumtracer(i) = sumtracer(i) + sum(tracer(:,j,k,i)) * ...     sumtracer(i) = sumtracer(i) + sum(tracer(:,j,k,i).*mask(:,j,k)) * ...
126                    thk(k) * (4*1.113195e+05)^2 * cos(pi*lat(j)/180);                    thk(k) * (4*1.113195e+05)^2 * cos(pi*lat(j)/180);
127    end    end
128   end   end
129  end  end
130    plot(1:30,0*sumtracer,1:30,sumtracer)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22