4 |
use dimens_m |
use dimens_m |
5 |
use paramet_m |
use paramet_m |
6 |
use comconst |
use comconst |
7 |
use comvert |
use disvert_m |
8 |
use comgeom |
use comgeom |
9 |
IMPLICIT none |
IMPLICIT none |
10 |
|
|
54 |
integer, intent(in):: ilev |
integer, intent(in):: ilev |
55 |
REAL pvcov(iip1,jjm,ilev) |
REAL pvcov(iip1,jjm,ilev) |
56 |
REAL pucov(iip1,jjp1,ilev) |
REAL pucov(iip1,jjp1,ilev) |
57 |
REAL pteta(iip1,jjp1,ilev) |
REAL, intent(in):: pteta(iip1,jjp1,ilev) |
58 |
REAL ztfi(ilon,ilev) |
REAL ztfi(ilon,ilev) |
59 |
REAL zplay(ilon,ilev), zplev(ilon,ilev+1) |
REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1) |
60 |
INTEGER nbteta |
INTEGER nbteta |
61 |
REAL theta(nbteta) |
REAL theta(nbteta) |
62 |
c |
c |