source: LMDZ5/trunk/libf/dyn3d_common/coordij.F @ 2597

Last change on this file since 2597 was 2597, checked in by Ehouarn Millour, 8 years ago

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 930 bytes
Line 
1!
2! $Header$
3!
4      SUBROUTINE coordij(lon,lat,ilon,jlat)
5
6c=======================================================================
7c
8c   calcul des coordonnees i et j de la maille scalaire dans
9c   laquelle se trouve le point (lon,lat) en radian
10c
11c=======================================================================
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#include "serre.h"
24
25      real zlon,zlat
26
27      zlon=lon*pi/180.
28      zlat=lat*pi/180.
29
30      DO i=1,iim+1
31         IF (rlonu(i).GT.zlon) THEN
32            ilon=i
33            GOTO 10
34         ENDIF
35      ENDDO
3610    CONTINUE
37
38      j=0
39      DO j=1,jjm
40         IF(rlatv(j).LT.zlat) THEN
41            jlat=j
42            GOTO 20
43         ENDIF
44      ENDDO
4520    CONTINUE
46      IF(j.EQ.0) j=jjm+1
47
48      RETURN
49      END
Note: See TracBrowser for help on using the repository browser.