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

Diff of /MITgcm_contrib/jmc_script/c_levs.m

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

revision 1.1 by jmc, Thu Oct 9 01:08:27 2008 UTC revision 1.2 by jmc, Fri Jan 10 21:53:58 2014 UTC
# Line 17  if dc > 0, Line 17  if dc > 0,
17    dd=dc;    dd=dc;
18  else  else
19    d0=(mn-Mx)/dc;    d0=(mn-Mx)/dc;
20    k0=log(d0)/log(10);    if d0 <= 0,
21    kd=round(k0);      ctl=0; return
22    pp=10.^kd;    end
23      k0=log(d0)/log(10);
24      kd=round(k0);
25      pp=10.^kd;
26    dd=round(d0/pp);    dd=round(d0/pp);
27    if dd == 0,    if dd == 0,
28      kd=floor(k0);      kd=floor(k0);
29      pp=10.^kd;      pp=10.^kd;
30      dd=round(d0/pp);      dd=round(d0/pp);
31    end    end
32    dd=pp*dd;    dd=pp*dd;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22