1
2
3
4
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
|
C Copyright 1981-2007 ECMWF
C
C Licensed under the GNU Lesser General Public License which
C incorporates the terms and conditions of version 3 of the GNU
C General Public License.
C See LICENSE and gpl-3.0.txt for details.
C
INTEGER FUNCTION GETTRU()
C
C---->
C*****GETTRU*
C
C PURPOSE
C -------
C
C Finding Corresponding Truncation
C
#include "parim.h"
#include "nifld.common"
#include "nofld.common"
REAL EW, NS
C Externals
C
INTEGER AURESOL
GETTRU = 0
cs IF(NOREPR.EQ.JPREGULAR) THEN
EW = FLOAT(NOGRID(1))/PPMULT
NS = FLOAT(NOGRID(2))/PPMULT
GETTRU = AURESOL(NS,EW)
CALL INTLOG(JP_DEBUG,
X 'GETTRU: Corresponding Truncation',GETTRU)
cs ENDIF
C
RETURN
END
|
