1 |
module inifgn_m |
module inifgn_m |
2 |
|
|
3 |
use dimens_m, only: iim |
use dimensions, only: iim |
4 |
|
|
5 |
IMPLICIT NONE |
IMPLICIT NONE |
6 |
|
|
23 |
! Computes the eigenvalues and eigenvectors of the discrete analog |
! Computes the eigenvalues and eigenvectors of the discrete analog |
24 |
! of the second derivative with respect to longitude. |
! of the second derivative with respect to longitude. |
25 |
|
|
26 |
USE dimens_m, ONLY: iim |
USE dimensions, ONLY: iim |
27 |
USE dynetat0_m, ONLY: xprimu, xprimv |
USE dynetat0_m, ONLY: xprimu, xprimv |
28 |
use jumble, only: new_unit |
use jumble, only: new_unit |
29 |
use numer_rec_95, only: jacobi, eigsrt |
use numer_rec_95, only: jacobi, eigsrt |