| 587 |
! using clon, grossismx, dzoomx, taux. |
! using clon, grossismx, dzoomx, taux. |
| 588 |
|
|
| 589 |
! Calcule les longitudes et dérivées dans la grille du GCM pour |
! Calcule les longitudes et dérivées dans la grille du GCM pour |
| 590 |
! une fonction x_f(\tilde x) à dérivée tangente hyperbolique. |
! une fonction $x_f(\tilde x)$ à dérivée tangente hyperbolique. |
| 591 |
|
|
| 592 |
! Il vaut mieux avoir : grossismx \times delta < pi |
! Il vaut mieux avoir : grossismx $\times$ delta < pi |
| 593 |
|
|
| 594 |
! Le premier point scalaire pour une grille regulière (grossismx = |
! Le premier point scalaire pour une grille regulière (grossismx = |
| 595 |
! 1) avec clon = 0 est à - 180 degrés. |
! 1) avec clon = 0 est à - 180 degrés. |
| 736 |
|
|
| 737 |
! Add or subtract 2 pi so that xlon is near [-pi, pi], then cshift |
! Add or subtract 2 pi so that xlon is near [-pi, pi], then cshift |
| 738 |
! so that xlon is in ascending order. Make the same cshift on |
! so that xlon is in ascending order. Make the same cshift on |
| 739 |
! xprimm. Use clon. |
! xprimm. Use clon. In this module to avoid circular dependency. |
| 740 |
|
|
| 741 |
use nr_util, only: twopi |
use nr_util, only: twopi |
| 742 |
|
|
| 770 |
|
|
| 771 |
subroutine invert_zoom_x(beta, xf, xtild, G, xlon, xprim, xuv) |
subroutine invert_zoom_x(beta, xf, xtild, G, xlon, xprim, xuv) |
| 772 |
|
|
| 773 |
! Using clon and grossismx. |
! Using clon and grossismx. In this module to avoid circular dependency. |
| 774 |
|
|
| 775 |
use coefpoly_m, only: coefpoly, a1, a2, a3 |
use coefpoly_m, only: coefpoly, a1, a2, a3 |
| 776 |
USE dimensions, ONLY: iim |
USE dimensions, ONLY: iim |
Parent Directory
| 
Revision Log
| 
Patch