Changeset 226 for trunk/SRC/Interpolation/get_gridparams.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/get_gridparams.pro
r163 r226 142 142 1:BEGIN 143 143 IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN 144 print, 'Longitudes are not the same for all latitudes, impos ible to extract a 1D array of the longitudes'144 print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes' 145 145 stop 146 146 ENDIF … … 163 163 1:BEGIN 164 164 IF array_equal(lat, replicate(1, jpi) # lat[0, *]) NE 1 THEN BEGIN 165 print, 'Latitudes are not the same for all longitudes, impos ible to extract a 1D array of the latitudes'165 print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes' 166 166 stop 167 167 ENDIF … … 184 184 1:BEGIN 185 185 IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN 186 print, 'Longitudes are not the same for all latitudes, impos ible to extract a 1D array of the longitudes'186 print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes' 187 187 stop 188 188 ENDIF 189 189 lon = lon[*, 0] 190 190 IF array_equal(lat, replicate(1, jpi) # reform(lat[0, *])) NE 1 THEN BEGIN 191 print, 'Latitudes are not the same for all longitudes, impos ible to extract a 1D array of the latitudes'191 print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes' 192 192 stop 193 193 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.