|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ############### 00002 MODULE MODD_IGN 00003 ! ############### 00004 ! 00005 !!**** *MODD_IGN* - declaration of constants for the Lambert projections 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! The purpose of this declarative module is to declare the 00010 ! Constants for the Lambert projections 00011 ! KLAMB PROJECTION (Namelist code) 00012 ! 00013 ! 1 : Lambert I 'L1' 00014 ! 2 : Lambert II 'L2' 00015 ! 3 : Lambert III 'L3' 00016 ! 4 : Lambert IV 'L4' 00017 ! 5 : Extended Lambert II 'L2E' 00018 ! 6 : Lambert 93 'L93' 00019 ! 00020 !! 00021 !!** IMPLICIT ARGUMENTS 00022 !! ------------------ 00023 !! None 00024 !! 00025 !! REFERENCE 00026 !! --------- 00027 !! NOTE TECHNIQUE IGN NT/G 71 : 00028 !! PROJECTION CARTOGRAPHIQUE CONIQUE COMFORME DE LAMBERT 00029 !! (www.ign.fr) 00030 !! AUTHOR 00031 !! ------ 00032 !! E. Martin *Meteo France* 00033 !! 00034 !! MODIFICATIONS 00035 !! ------------- 00036 !! Original 10/2007 00037 ! 02/2011 Correction de la longitude d'origine pour L93 (A. Lemonsu) 00038 !------------------------------------------------------------------------------- 00039 ! 00040 !* 0. DECLARATIONS 00041 ! ------------ 00042 ! 00043 IMPLICIT NONE 00044 REAL, DIMENSION(6) :: XN = (/ 0.7604059656,0.7289686274,0.6959127966, 00045 0.6712679322,0.7289686274,0.7256077650 /) 00046 ! ! exposant de projection (n) 00047 ! 00048 REAL, DIMENSION(6) :: XC = (/ 11603796.98,11745793.39,11947992.52, 00049 12136281.99,11745793.39,11754255.426 /) 00050 ! constante de projection (c) (m) 00051 ! 00052 REAL, DIMENSION(6) :: XXS= (/ 600000.,600000.,600000., 00053 234.358,600000.,700000. /) 00054 ! coordonnée X en projection du Pôle (Xs) (m) 00055 ! 00056 REAL, DIMENSION(6) :: XYS= (/ 5657616.674, 6199695.768,6791905.085, 00057 7239161.542, 8199695.768,12655612.050 /) 00058 ! coordonnée Y en projection du Pôle (Ys) (m) 00059 ! 00060 REAL, DIMENSION(6) :: XLONP= (/ 2.33722917, 2.33722917, 2.33722917, 00061 2.33722917, 2.33722917, 3. /) 00062 ! longitude de référence (deg) 00063 ! Méridien de Paris pour L1,L2,L3,L4,L2E 00064 ! 3° Est Greenwitch pour L93 00065 ! 00066 REAL :: XECC= 0.08248325676 ! premiere excentricité de 00067 ! l'ellispoide terrestre 00068 ! 00069 REAL :: XA= 6378137.0 ! 1/2 grand axe de l'ellipsoide 00070 ! terrestre (m) 00071 !--------------------------------------------------------------------- 00072 ! Parameters for calculations and approximations 00073 !---------------------------------------------------------------------- 00074 REAL :: XCVGLAT = 1.E-11 ! Small number for convergence 00075 ! tests for latitude retrieval 00076 REAL :: XDELTY = 1000. ! Increment for calculation of 00077 ! angle with the North 00078 ! 00079 REAL :: XEXPAND = 200000. ! distance for expansion of 00080 ! the grid for latlonmask_ign 00081 ! to account for projection 00082 ! deformation (m) 00083 ! 00084 END MODULE MODD_IGN 00085
1.8.0
