Changeset 13 for trunk/procs/nc_put.pro

Timestamp:

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

Author:

kolasinski

Message:

Add some debug_w in nc_build and nc_put

File:

• trunk/procs/nc_put.pro (modified) (5 diffs)

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