72 |
CALL coordij(clon, clat, ilon, ilat) |
CALL coordij(clon, clat, ilon, ilat) |
73 |
! aire de la maille au centre du zoom |
! aire de la maille au centre du zoom |
74 |
dxdy_min = dxdys(ilon, ilat) |
dxdy_min = dxdys(ilon, ilat) |
75 |
|
print *, "dxdy_min = ", dxdy_min |
76 |
|
|
77 |
! dxdy maximal de la maille : |
! dxdy maximal de la maille : |
78 |
dxdy_max = 0. |
dxdy_max = maxval(dxdys) |
79 |
DO j = 1, jjp1 |
print *, "dxdy_max = ", dxdy_max |
|
DO i = 1, iip1 |
|
|
dxdy_max = max(dxdy_max, dxdys(i, j)) |
|
|
END DO |
|
|
END DO |
|
80 |
|
|
81 |
IF (abs(grossismx - 1.) < 0.1 .OR. abs(grossismy - 1.) < 0.1) THEN |
IF (abs(grossismx - 1.) < 0.1 .OR. abs(grossismy - 1.) < 0.1) THEN |
82 |
PRINT *, 'Attention : modèle peu zoomé.' |
PRINT *, 'Attention : modèle peu zoomé.' |