Newer
Older
!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source$ $Revision$
! MASDEV4_7 tools 2006/05/18 13:07:25
!-----------------------------------------------------------------
! ####################
PROGRAM LATLON_TO_XY
! ####################
!
!!**** *LATLON_TO_XY* program to compute x and y from latitude and longiude
!! for a MESONH file
!!
!! PURPOSE
!! -------
!!
!! METHOD
!! ------
!!
!! EXTERNAL
!! --------
!!
!! module FMLOOK : to retrieve a logical unit number
!! associated with a file
!!
!! module MODE_GRIDPROJ : contains projection routines
!! SM_LATLON and SM_XYHAT
!!
!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
!! module MODD_GRID : variables for projection:
!! XLAT0,XLON0,XRPK,XBETA
!!
!! module MODD_PGDDIM : specify the dimentions of the data arrays:
!! NPGDIMAX and NPGDJMAX
!!
!! module MODD_PGDGRID : grid variables:
!! XPGDLONOR,XPGDLATOR: longitude and latitude of the
!! origine point for the conformal projection.
!! XPGDXHAT,XPGDYHAT: position x,y in the conformal plane
!!
!!
!! REFERENCE
!! ---------
!!
!! AUTHOR
!! ------
!!
!! V. Masson Meteo-France
!!
!! MODIFICATION
!! ------------
!!
!! Original 29/12/95
!!
!! remove the USE MODI_DEFAULT_DESFM Apr. 17, 1996 (J.Stein)
!! no transfer of the file when closing Dec. 09, 1996 (V.Masson)
!! + changes call to READ_HGRID
!----------------------------------------------------------------------------
!
!* 0. DECLARATION
! -----------
!
USE MODE_FM
USE MODE_IO_ll
!
USE MODD_GRID
USE MODD_PGDDIM
USE MODD_PGDGRID
USE MODD_PARAMETERS
USE MODD_LUNIT
!
USE MODE_GRIDPROJ
!
USE MODI_INI_CST
USE MODI_READ_HGRID
!
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
IMPLICIT NONE
!
!* 0.2 Declaration of variables
! ------------------------
!
CHARACTER(LEN=28) :: YINIFILE ! name of input FM file
CHARACTER(LEN=28) :: YNAME ! true name of input FM file
CHARACTER(LEN=28) :: YDAD ! name of dad of input FM file
CHARACTER(LEN=2) :: YSTORAGE_TYPE
INTEGER :: INAM ! Logical unit for namelist file
INTEGER :: ILUOUT0 ! Logical unit for output file.
INTEGER :: IRESP ! Return-code if problem eraised.
INTEGER :: ININAR
REAL :: ZLAT ! input latitude
REAL :: ZLON ! input longitude
REAL :: ZXHAT ! output conformal coodinate x
REAL :: ZYHAT ! output conformal coodinate y
INTEGER :: II,IJ ! indexes of the point
REAL :: ZI,ZJ ! fractionnal indexes of the point
!
!* 0.3 Declaration of namelists
! ------------------------
!
NAMELIST/NAM_INIFILE/ YINIFILE
!----------------------------------------------------------------------------
!
WRITE(*,*) '+---------------------------------+'
WRITE(*,*) '| program latlon_to_xy |'
WRITE(*,*) '+---------------------------------+'
WRITE(*,*) ''
WRITE(*,*) 'Warning: I and J are integer for flux points'
!
!* 1. Initializations
! ---------------
!
CALL INI_CST
!
!* 2. Reading of namelist file
! ------------------------
!
CALL INITIO_ll()
!
CALL OPEN_ll(UNIT=INAM,FILE='LATLON2XY1.nam',IOSTAT=IRESP,ACTION='READ', &
DELIM='QUOTE',MODE=GLOBAL)
READ(INAM,NAM_INIFILE)
!
READ(INAM,NAM_CONFIO)
CALL SET_CONFIO_ll(LCDF4, LLFIOUT, LLFIREAD)
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
CALL CLOSE_ll('LATLON2XY1.nam',IOSTAT=IRESP)
!
!* 1. Opening of MESONH file
! ----------------------
!
CALL FMOPEN_ll(YINIFILE,'READ',CLUOUT0,0,2,2,ININAR,IRESP)
!
!* 2. Reading of MESONH file
! ----------------------
!
CALL READ_HGRID(0,YINIFILE,YNAME,YDAD,YSTORAGE_TYPE)
!
!* 3. Closing of MESONH file
! ----------------------
!
CALL FMCLOS_ll(YINIFILE,'KEEP',CLUOUT0,IRESP)
!
!-------------------------------------------------------------------------------
!
!* 4. Reading of latitude and longitude
! ---------------------------------
!
DO
WRITE(*,*) '-------------------------------------------------------------------'
WRITE(*,*) 'please enter the latitude (in decimal degrees; quit or q to stop):'
READ(*,*,ERR=1) ZLAT
WRITE(*,*) 'please enter the longitude (in decimal degrees; quit or q to stop):'
READ(*,*,ERR=1) ZLON
!
CALL SM_XYHAT(XPGDLATOR,XPGDLONOR, &
ZLAT,ZLON,ZXHAT,ZYHAT)
!
WRITE(*,*) 'x=', ZXHAT
WRITE(*,*) 'y=', ZYHAT
!
II=MAX(MIN(COUNT(XPGDXHAT(:)<ZXHAT),NPGDIMAX+2*JPHEXT-1),1)
IJ=MAX(MIN(COUNT(XPGDYHAT(:)<ZYHAT),NPGDJMAX+2*JPHEXT-1),1)
ZI=(ZXHAT-XPGDXHAT(II))/(XPGDXHAT(II+1)-XPGDXHAT(II))+FLOAT(II)
ZJ=(ZYHAT-XPGDYHAT(IJ))/(XPGDYHAT(IJ+1)-XPGDYHAT(IJ))+FLOAT(IJ)
!
IF ( (ZI>=1.) .AND. (ZI<=NPGDIMAX+2*JPHEXT+1) &
.AND. (ZJ>=1.) .AND. (ZJ<=NPGDJMAX+2*JPHEXT+1) ) THEN
WRITE(*,*) 'I=',ZI
WRITE(*,*) 'J=',ZJ
ELSE
WRITE(*,*) 'point not in the domain'
WRITE(*,*) 'I=',ZI
WRITE(*,*) 'J=',ZJ
END IF
END DO
1 WRITE(*,*) 'good bye'
!
!-------------------------------------------------------------------------------
!
END PROGRAM LATLON_TO_XY