Changeset 204 for trunk/src/d2m_to_q2m_erai.pro

Timestamp:

03/26/14 11:58:56 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules; typo

File:

• trunk/src/d2m_to_q2m_erai.pro (modified) (8 diffs)

trunk/src/d2m_to_q2m_erai.pro

@@ -121 +121 @@
 ;    % Program caused arithmetic error: Floating illegal operand
 ;
-; related to occurence of NaNf in ncdump output ? do no yet
+; related to occurrence of NaNf in ncdump output ? do no yet
 ;
 ; pk also see these error messages ...
 ;
-; check for NaN value in P return by reading Netcdf msl file
-; solution is may be to apply *mskout to q2m like  in interp* tools
+; check for NaN value in P return by reading netCDF msl file
+; solution is may be to apply *mskout to q2m like in interp* tools
 ; not yet done to keep close as possible to pk processing
 ;
@@ -198 +198 @@
 nparam = N_PARAMS()
 IF (nparam NE 2) THEN BEGIN
-ras = report(['Incorrect number of arguments.' $
-      + '!C' $
-      + 'Usage : ' + usage])
-      return, result
+    ras = report(['Incorrect number of arguments.' $
+    + '!C' $
+    + 'Usage : ' + usage])
+    return, result
 ENDIF
 ;
 ; test if ${PROJECT_OD} defined
 CASE project_od_env OF
-  '' : BEGIN
-         msg = 'eee : ${PROJECT_OD} is not defined'
-         ras = report(msg)
-       return, result
-       END
-  ELSE: BEGIN
-          msg = 'iii : ${PROJECT_OD} is ' + project_od_env
-          ras = report(msg)
-        END
- ENDCASE
+    '' : BEGIN
+        msg = 'eee : ${PROJECT_OD} is not defined'
+        ras = report(msg)
+        return, result
+    END
+    ELSE : BEGIN
+        msg = 'iii : ${PROJECT_OD} is ' + project_od_env
+        ras = report(msg)
+    END
+ENDCASE
 ;
 ; check if output data will be possible
@@ -222 +222 @@
 ; existence and protection for reading
 IF (FILE_TEST(iodirout, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN
-   msg = 'eee : the directory' + iodirout  + ' is not accessible.'
-   ras = report(msg)
-   return, result
+    msg = 'eee : the directory' + iodirout  + ' is not accessible.'
+    ras = report(msg)
+    return, result
 ENDIF
 ;
@@ -242 +242 @@
 fullfilename_d2m = isafile(iodirout + filename_d2m, NEW=0, /MUST_EXIST)
 IF fullfilename_d2m[0] EQ '' THEN BEGIN
-   msg = 'eee : the file ' + fullfilename_d2m + ' was not found.'
-   ras = report(msg)
-   return, result
+    msg = 'eee : the file ' + fullfilename_d2m + ' was not found.'
+    ras = report(msg)
+    return, result
 ENDIF
 ;
@@ -255 +255 @@
 fullfilename_t2m = isafile(iodirout + filename_t2m, NEW=0, /MUST_EXIST)
 IF fullfilename_t2m[0] EQ '' THEN BEGIN
-   msg = 'eee : the file ' + fullfilename_t2m + ' was not found.'
-   ras = report(msg)
-   return, result
+    msg = 'eee : the file ' + fullfilename_t2m + ' was not found.'
+    ras = report(msg)
+    return, result
 ENDIF
 ;
@@ -268 +268 @@
 fullfilename_msl = isafile(iodirout + filename_msl, NEW=0, /MUST_EXIST)
 IF fullfilename_msl[0] EQ '' THEN BEGIN
-   msg = 'eee : the file ' + fullfilename_msl + ' was not found.'
-   ras = report(msg)
-   return, result
+    msg = 'eee : the file ' + fullfilename_msl + ' was not found.'
+    ras = report(msg)
+    return, result
 ENDIF
 ;
@@ -278 +278 @@
 ; in order to avoid unexpected overwritten
 IF (FILE_TEST(fullfilename_out) EQ 1) THEN BEGIN
-   msg = 'eee : the file ' + fullfilename_out  + ' already exists.'
-   ras = report(msg)
-   return, result
+    msg = 'eee : the file ' + fullfilename_out  + ' already exists.'
+    ras = report(msg)
+    return, result
 ENDIF
 ;
@@ -351 +351 @@
 ;
 ncfields = 'q2m[longitude,latitude,*time]=q2m:q2m_attr; ' $
-                      + 'longitude[]=xlon:lon_attr; ' $
-                      + 'latitude[]=ylat:lat_attr; ' $
-                      + 'time[]=timein:time_attr ' $
-                      + ' @ globattr'
++ 'longitude[]=xlon:lon_attr; ' $
++ 'latitude[]=ylat:lat_attr; ' $
++ 'time[]=timein:time_attr ' $
++ ' @ globattr'
 ;
 @ncdf_quickwrite