/[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.2 by jmc, Fri Feb 10 20:05:34 2017 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('   6=dic ; 7=land ; 7=cpl ; 9=fizhi ; 10,11=somT,S ; select one those: ?\n');   kr=input('   6=dic ; 7=land ; 8=cpl ; 9=fizhi ; 10,11=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'];
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22