*=*=*=*= coordij.html =*=*=*=*
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