Changeset 101 for trunk/SRC/Interpolation/angle.pro
- Timestamp:
- 06/12/06 10:29:56 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/angle.pro
r59 r101 1 1 ;--------- 2 2 ;+ 3 ; NAME:angle.pro (fom angle.F,v 2.2 in OPA8.2)3 ; @file_comments north stereographic polar projection 4 4 ; 5 ; PURPOSE:Compute angles between grid lines and direction of the North5 ; @keyword /DOUBLE use double precision (default is float) 6 6 ; 7 ; CALLING SEQUENCE: 8 ; angle, fileocemesh, gcosu, gsinu, gcosv, gsinv, gcost, gsint 9 ; 10 ; INPUTS: 11 ; fileocemesh a netcdf file that contains (at least): 12 ; glamu, gphiu: longitudes and latitudes at U-points 13 ; glamv, gphiv: longitudes and latitudes at V-points 14 ; glamf, gphif: longitudes and latitudes at F-points 15 ; 16 ; KEYWORD PARAMETERS: 17 ; 18 ; IODIRECTORY: the directory path where is located fileocemesh 19 ; 20 ; /DOUBLE: use double precision (default is float) 21 ; 22 ; OUTPUTS: 7 ; @returns 23 8 ; gsinu,gcosu : sinus and cosinus of the angle 24 9 ; gsinv,gcosv between north-south direction 25 10 ; gsint,gcost and the j-direction of the mesh 26 ;27 11 ; 28 ; RESTRICTIONS:to compute the lateral boundary conditions, we assume12 ; @restrictions to compute the lateral boundary conditions, we assume 29 13 ; that: 30 14 ; (1) the first line is similar to the second line … … 37 21 ; 38 22 ; 39 ; MODIFICATION HISTORY:23 ; @history 40 24 ; -------------- 41 25 ; Original : 96-07 (O. Marti) … … 45 29 ;--------- 46 30 ; 47 ; fsnspp: north stereographic polar projection48 31 FUNCTION fsnspp, plam, pphi, DOUBLE = double 49 32 IF keyword_set(double) THEN BEGIN … … 59 42 END 60 43 ;--------- 44 ;+ 45 ; @file_comments Compute angles between grid lines and direction of the North 46 ;(fom angle.F,v 2.2 in OPA8.2) 47 ; 48 ; @param fileocemesh {in}{required} a netcdf file that contains (at least): 49 ; glamu, gphiu: longitudes and latitudes at U-points 50 ; glamv, gphiv: longitudes and latitudes at V-points 51 ; glamf, gphif: longitudes and latitudes at F-points 52 ; 53 ; @keyword IODIRECTORY the directory path where is located fileocemesh 54 ; @keyword /DOUBLE use double precision (default is float) 55 ;- 61 56 ;--------- 62 57 ;
Note: See TracChangeset
for help on using the changeset viewer.