Changeset 205 for trunk/procs/nc_put.pro

Timestamp:

01/26/10 10:46:13 (14 years ago)

Author:

pinsard

Message:

homegenize THEN BEGIN ... ENDIF

File:

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

trunk/procs/nc_put.pro

@@ -203 +203 @@
 
    cdfid = ncdf_create(ncdf_db+file_name, /clobber)
-   IF debug_w THEN print, '    type,cdfid = ', type, cdfid
+   IF debug_w THEN BEGIN
+    print, '    type,cdfid = ', type, cdfid
+   ENDIF
    ncdf_control, cdfid, /fill
 
@@ -240 +242 @@
    tid = ncdf_dimdef(cdfid, 'time', /UNLIMITED)
 
-   IF debug_w THEN print, '    dim check ', dim_check
+   IF debug_w THEN BEGIN
+    print, '    dim check ', dim_check
+   ENDIF
 
    IF dim_check NE dim[0] THEN BEGIN
@@ -251 +255 @@
 
    ; horizontal zonal axis
-   IF debug_w THEN print, '    building zonal axis, xid: ', xid
+   IF debug_w THEN BEGIN
+    print, '    building zonal axis, xid: ', xid
+   ENDIF
 ;   IF strpos(type, 'x') NE -1 AND keyword_set(X) THEN BEGIN
       IF strpos (type, 'xy') NE -1 THEN BEGIN
@@ -264 +270 @@
 
    ; horizontal meridional axis
-   IF debug_w THEN print, '    building Y axis, yid: ', yid
+   IF debug_w THEN BEGIN
+    print, '    building Y axis, yid: ', yid
+   ENDIF
    IF strpos (type, 'xy') NE -1 THEN BEGIN
       latid = ncdf_vardef(cdfid,'lat', [xid, yid], /FLOAT)
@@ -275 +283 @@
 
    ; vertical axis
-   IF debug_w THEN print, '    building Z axis, zid: ', zid
+   IF debug_w THEN BEGIN
+    print, '    building Z axis, zid: ', zid
+   ENDIF
    IF zpos NE -1 AND keyword_set(Z) THEN BEGIN
       vertid = ncdf_vardef(cdfid,z.name, [zid], /FLOAT)
@@ -286 +296 @@
 
    ; time axis
-   IF debug_w THEN print, '    building T axis, tid: ', tid
+   IF debug_w THEN BEGIN
+    print, '    building T axis, tid: ', tid
+   ENDIF
    IF tpos NE -1 AND keyword_set(T) THEN BEGIN
       mid = NCDF_VARDEF(cdfid, 'time', [tid], /long)
@@ -315 +327 @@
    ENDELSE
 
-   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
+   IF debug_w THEN BEGIN
+    print, '    test 1 fld.short_name = ', fld.short_name
+    print, '    swx,y,z,t = ', swx, swy, swz, swt
+   ENDIF
 
 ; field attributes
 
-   IF debug_w THEN print, '    type, size fld.data ', type, size(fld.data)
+   IF debug_w THEN BEGIN
+    print, '    type, size fld.data ', type, size(fld.data)
+   ENDIF
 
    varn = strcompress(fld.short_name, /remove_all)