39 |
|
|
40 |
USE coefils, ONLY : coefilu, coefilu2, coefilv, coefilv2, eignfnu, & |
USE coefils, ONLY : coefilu, coefilu2, coefilv, coefilv2, eignfnu, & |
41 |
eignfnv, modfrstu, modfrstv |
eignfnv, modfrstu, modfrstv |
|
USE comgeom, ONLY : rlatu, rlatv, xprimu |
|
42 |
USE dimens_m, ONLY : iim, jjm |
USE dimens_m, ONLY : iim, jjm |
43 |
|
USE dynetat0_m, ONLY : rlatu, rlatv, xprimu, grossismx |
44 |
use inifgn_m, only: inifgn |
use inifgn_m, only: inifgn |
45 |
use nr_util, only: pi |
use nr_util, only: pi |
|
USE serre, ONLY : grossismx |
|
46 |
|
|
47 |
! Local: |
! Local: |
48 |
REAL dlatu(jjm) |
REAL dlatu(jjm) |