/[MITgcm]/MITgcm_contrib/jmc_script/rdwrpick.m
ViewVC logotype

Diff of /MITgcm_contrib/jmc_script/rdwrpick.m

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

revision 1.1 by jmc, Sun Apr 6 21:39:30 2008 UTC revision 1.3 by jmc, Fri Feb 10 20:21:02 2017 UTC
# Line 7  Line 7 
7  namInp='pickup';  namInp='pickup';
8    
9   fprintf(' suffix for pickup file: 0=std ; 1=nh ; 2=cd ; 3=seaice ; 4=ice ; 5=pTrs\n');   fprintf(' suffix for pickup file: 0=std ; 1=nh ; 2=cd ; 3=seaice ; 4=ice ; 5=pTrs\n');
10  %kr=input('   8=fizhi ; 9=vegtiles ; select one those: ? \n');   kr=input('   6=dic ; 7=land ; 8=cpl ; 9=fizhi ; 10,11=somT,S ; select one those: ?\n');
  kr=input('   6=land ; 7=cpl ; 8=fizhi ; 9,10=somT,S ; select one those: ? \n');  
11  switch kr  switch kr
12   case 1,  namInp=[namInp,'_nh'];   case 1,  namInp=[namInp,'_nh'];
13   case 2,  namInp=[namInp,'_cd'];   case 2,  namInp=[namInp,'_cd'];
14   case 3,  namInp=[namInp,'_seaice'];   case 3,  namInp=[namInp,'_seaice'];
15   case 4,  namInp=[namInp,'_ic'];   case 4,  namInp=[namInp,'_ic'];
16   case 5,  namInp=[namInp,'_ptracers'];   case 5,  namInp=[namInp,'_ptracers'];
17   case 6,  namInp=[namInp,'_land'];   case 6,  namInp=[namInp,'_dic'];
18   case 7,  namInp=[namInp,'_cpl'];   case 7,  namInp=[namInp,'_land'];
19   case 8,  namInp=[namInp,'_fizhi'];   case 8,  namInp=[namInp,'_cpl'];
20     case 9,  namInp=[namInp,'_fizhi'];
21  %case 9,  namInp=[namInp,'_vegtiles'];  %case 9,  namInp=[namInp,'_vegtiles'];
22   case 9,  namInp=[namInp,'_somT'];   case 10, namInp=[namInp,'_somT'];
23   case 10, namInp=[namInp,'_somS'];   case 11, namInp=[namInp,'_somS'];
24  end  end
25    
26  nit=input([' put together all partial ',namInp,  ...  nit=input([' put together all partial ',namInp,  ...
27             ' files : input n_iter = ? (-1,-2:ckptA,B) \n']);             ' files : input n_iter = ? (-1,-2:ckptA,B) \n']);
28    
# Line 31  if nit < 0, Line 31  if nit < 0,
31   else namfil=[namInp,'.ckptB'];   else namfil=[namInp,'.ckptB'];
32   end   end
33  else  else
34   namfil=fname(namInp,nit);   namfil=sprintf('%s.%10.10i',namInp,nit);
35  end  end
36  %-----------  %-----------
37  %u,gu,gum v,gv,gvm, t,gt,gtm, s,gs,gsm, eta  %u,gu,gum v,gv,gvm, t,gt,gtm, s,gs,gsm, eta
38    
39  fprintf(['read files: ',namfil,'* \n \n']);  fprintf(['read files: ',namfil,'* \n \n']);
40  va=rdmds(namfil);  va=rdmds(namfil);
41  %fprintf(' read full size : %i %i %i \n \n',size(va));  %fprintf(' read full size : %i %i %i \n \n',size(va));
42  fprintf(' read full size :'); fprintf(' %i',size(va)); fprintf('\n\n');  fprintf(' read full size :'); fprintf(' %i',size(va)); fprintf('\n\n');
43    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22