GCC Code Coverage Report


Directory: ./
File: dyn3d_common/coordij.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 12 0.0%
Branches: 0 8 0.0%

Line Branch Exec Source
1 !
2 ! $Header$
3 !
4 SUBROUTINE coordij(lon,lat,ilon,jlat)
5
6 c=======================================================================
7 c
8 c calcul des coordonnees i et j de la maille scalaire dans
9 c laquelle se trouve le point (lon,lat) en radian
10 c
11 c=======================================================================
12
13 USE comconst_mod, ONLY: pi
14
15 IMPLICIT NONE
16 REAL lon,lat
17 INTEGER ilon,jlat
18 INTEGER i,j
19
20 include "dimensions.h"
21 include "paramet.h"
22 include "comgeom.h"
23
24 real zlon,zlat
25
26 zlon=lon*pi/180.
27 zlat=lat*pi/180.
28
29 DO i=1,iim+1
30 IF (rlonu(i).GT.zlon) THEN
31 ilon=i
32 GOTO 10
33 ENDIF
34 ENDDO
35 10 CONTINUE
36
37 j=0
38 DO j=1,jjm
39 IF(rlatv(j).LT.zlat) THEN
40 jlat=j
41 GOTO 20
42 ENDIF
43 ENDDO
44 20 CONTINUE
45 IF(j.EQ.0) j=jjm+1
46
47 RETURN
48 END
49