15 |
|
|
16 |
! Nota bene : il vaut mieux avoir grossismy * dzoomy < pi / 2 (radians). |
! Nota bene : il vaut mieux avoir grossismy * dzoomy < pi / 2 (radians). |
17 |
|
|
18 |
|
use coefpoly_m, only: coefpoly |
19 |
USE dimens_m, only: jjm |
USE dimens_m, only: jjm |
20 |
use serre, only: clat, grossismy, dzoomy, tauy |
use serre, only: clat, grossismy, dzoomy, tauy |
21 |
|
|
54 |
|
|
55 |
!------------------------------------------------------------------- |
!------------------------------------------------------------------- |
56 |
|
|
57 |
|
print *, "Call sequence information: fyhyp" |
58 |
|
|
59 |
pi = 2.*asin(1.) |
pi = 2.*asin(1.) |
60 |
pis2 = pi/2. |
pis2 = pi/2. |
61 |
pisjm = pi/real(jjm) |
pisjm = pi/real(jjm) |
336 |
|
|
337 |
print *, 'Latitudes' |
print *, 'Latitudes' |
338 |
print 3, champmin, champmax |
print 3, champmin, champmax |
|
print *, 'Si cette derniere est trop lache, modifiez les parametres' |
|
|
print *, 'grossismy, tauy, dzoom pour Y et repasser ! ' |
|
339 |
|
|
340 |
3 Format(1x, ' Au centre du zoom, la longueur de la maille est', & |
3 Format(1x, ' Au centre du zoom, la longueur de la maille est', & |
341 |
' d environ ', f0.2, ' degres ', /, & |
' d environ ', f0.2, ' degres ', /, & |
342 |
' alors que la maille en dehors de la zone du zoom est ', & |
' alors que la maille en dehors de la zone du zoom est ', & |
343 |
"d'environ", f0.2, ' degres ') |
"d'environ ", f0.2, ' degres ') |
344 |
|
|
345 |
END SUBROUTINE fyhyp |
END SUBROUTINE fyhyp |
346 |
|
|