Changeset 13

Timestamp:

11/27/07 18:01:34 (16 years ago)

Author:

kolasinski

Message:

Add some debug_w in nc_build and nc_put

Location:

trunk/procs

Files:

• nc_build.pro (modified) (2 diffs)
• nc_put.pro (modified) (5 diffs)

trunk/procs/nc_build.pro

@@ -12 +12 @@
 
 ; grid
+   IF debug_w THEN print, ' '
+   IF debug_w THEN print, '  ENTER nc_build...'
 
+   IF debug_w THEN print, '    direc = ', direc
 
    xpos = strpos(direc, 'x')
@@ -99 +102 @@
    cdf_description = str_x+str_y+str_z+str_t+',GLOBAL=global_attributes'
 
+   IF debug_w THEN print, '    cdf_description = ', cdf_description
+   IF debug_w THEN print, '  ...EXIT nc_build'
    return, cdf_description
    

trunk/procs/nc_put.pro

@@ -11 +11 @@
 ;     x.name, x.units, x.long_name, x.data (+t.calendar and t.origin for time)
 ; Global = global attributes: conventions, title, origin
+   IF debug_w THEN print, ' '
+   IF debug_w THEN print, '  ENTER nc_put...'
 
    dim = size(fld.data)
@@ -20 +22 @@
 
    cdfid = ncdf_create(ncdf_db+file_name, /clobber)
-;   print, type, cdfid
+   IF debug_w THEN print, '    type,cdfid = ', type, cdfid
    ncdf_control, cdfid, /fill
 
@@ -129 +131 @@
    ENDELSE 
 
-   IF debug_w THEN print, ' test 1 fld.short_name in nc_put ', fld.short_name
+   IF debug_w THEN print, '    test 1 fld.short_name  = ', fld.short_name
+   IF debug_w THEN print, '    swx,y,z,t  = ', swx, swy, swz, swt
 
 ; field attributes
@@ -193 +196 @@
    END 
    IF swt EQ 1 THEN BEGIN
-      print, '       writing time, size', size (time_data)
+      print, '       writing time, size=', size (time_data)
       NCDF_VARPUT, cdfid, mid, time_data
    END 
@@ -213 +216 @@
 
     NCDF_CLOSE, cdfid
+    IF debug_w THEN print, '  ...EXIT nc_put'
 
 END