170 |
use jumble, only: new_unit |
use jumble, only: new_unit |
171 |
use nr_util, only: pi |
use nr_util, only: pi |
172 |
USE paramet_m, ONLY : iip1, jjp1 |
USE paramet_m, ONLY : iip1, jjp1 |
173 |
USE serre, ONLY : alphax, alphay, clat, clon, dzoomx, dzoomy, grossismx, & |
USE serre, ONLY : alphax, alphay, clat, clon, pxo, pyo, transx, transy |
|
grossismy, pxo, pyo, taux, tauy, transx, transy |
|
174 |
! Modifiés pxo, pyo, transx, transy |
! Modifiés pxo, pyo, transx, transy |
175 |
|
|
176 |
! Local: |
! Local: |
216 |
print *, "gamdi_h = ", gamdi_h |
print *, "gamdi_h = ", gamdi_h |
217 |
|
|
218 |
IF (fxyhypb) THEN |
IF (fxyhypb) THEN |
|
! Utilisation de fxyhyper, f(x, y) à dérivée tangente hyperbolique |
|
219 |
print *, 'inigeom: Y = latitude, dérivée tangente hyperbolique' |
print *, 'inigeom: Y = latitude, dérivée tangente hyperbolique' |
220 |
CALL fxyhyper(clat, grossismy, dzoomy, tauy, clon, grossismx, dzoomx, & |
CALL fxyhyper(rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, & |
|
taux, rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, & |
|
221 |
yprimu2, rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, & |
yprimu2, rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, & |
222 |
rlonp025, xprimp025) |
rlonp025, xprimp025) |
223 |
ELSE |
ELSE |