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 |
|
use tourabs_m, only: tourabs |
10 |
IMPLICIT none |
IMPLICIT none |
11 |
|
|
12 |
c======================================================================= |
c======================================================================= |
53 |
c |
c |
54 |
INTEGER ilon |
INTEGER ilon |
55 |
integer, intent(in):: ilev |
integer, intent(in):: ilev |
56 |
REAL pvcov(iip1,jjm,ilev) |
REAL, intent(in):: pvcov(iip1,jjm,ilev) |
57 |
REAL pucov(iip1,jjp1,ilev) |
REAL, intent(in):: pucov(iip1,jjp1,ilev) |
58 |
REAL, intent(in):: pteta(iip1,jjp1,ilev) |
REAL, intent(in):: pteta(iip1,jjp1,ilev) |
59 |
REAL ztfi(ilon,ilev) |
REAL ztfi(ilon,ilev) |
60 |
REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1) |
REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1) |