*=*=*=*= coordij.html =*=*=*=*
SUBROUTINE coordij

SUBROUTINE coordij


      SUBROUTINE coordij(lon,lat,ilon,jlat)

c=======================================================================
c
c   calcul des coordonnees i et j de la maille scalaire dans
c   laquelle se trouvr le point (lon,lat)
c
c=======================================================================

      IMPLICIT NONE
      REAL lon,lat
      INTEGER ilon,jlat
      INTEGER i,j

#include "dimensions.h"
#include "paramet.h"
#include "comconst.h"
#include "serre.h"
#include "fxyprim.h"

      DO i=1,iim+1
         IF (fx(i+.5).GT.lon) THEN
            ilon=i
            GOTO 10
         ENDIF
      ENDDO
10    CONTINUE

      j=0
      DO j=1,jjm
         IF(fy(j+.5).LT.lat) THEN
            jlat=j
            GOTO 20
         ENDIF
      ENDDO
20    CONTINUE
      IF(j.EQ.0) j=jjm+1

      RETURN
      END