Diff of /MITgcm_contrib/jmc_script/c_levs.m

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm_contrib/jmc_script/c_levs.m	2008/10/09 01:08:27	1.1
+++ MITgcm_contrib/jmc_script/c_levs.m	2014/01/10 21:53:58	1.2
@@ -4,7 +4,7 @@
 %  dc > 0 : select contour-levels as multiple of "dc" within [mn,Mx]
 %  dc < 0 : select aproximatively |dc| contour levels, within [mn,Mx]
 
-% $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/jmc_script/c_levs.m,v 1.1 2008/10/09 01:08:27 jmc Exp $
+% $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/jmc_script/c_levs.m,v 1.2 2014/01/10 21:53:58 jmc Exp $
 % $Name:  $
 
 if nargin < 3,
@@ -17,13 +17,16 @@
   dd=dc;
 else
   d0=(mn-Mx)/dc;
-  k0=log(d0)/log(10); 
-  kd=round(k0); 
-  pp=10.^kd; 
+  if d0 <= 0,
+    ctl=0; return
+  end
+  k0=log(d0)/log(10);
+  kd=round(k0);
+  pp=10.^kd;
   dd=round(d0/pp);
-  if dd == 0, 
-    kd=floor(k0); 
-    pp=10.^kd; 
+  if dd == 0,
+    kd=floor(k0);
+    pp=10.^kd;
     dd=round(d0/pp);
   end
   dd=pp*dd;