Changeset 114 for trunk/SRC/Interpolation/angle.pro
- Timestamp:
- 06/19/06 16:14:56 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/angle.pro
r101 r114 30 30 ; 31 31 FUNCTION fsnspp, plam, pphi, DOUBLE = double 32 ; 33 compile_opt idl2, strictarrsubs 34 ; 32 35 IF keyword_set(double) THEN BEGIN 33 36 a = 2.d * tan( !dpi/4.d - !dpi/180.d*pphi/2.d ) … … 61 64 ; 0. read oceanic grid parameters 62 65 ; ================================ 66 ; 67 ; 68 compile_opt idl2, strictarrsubs 63 69 ; 64 70 IF keyword_set(IODIRECTORY) THEN BEGIN
Note: See TracChangeset
for help on using the changeset viewer.