source: trunk/src/interpol_mod.f90 @ 4

Last change on this file since 4 was 4, checked in by mlanger, 10 years ago
File size: 456 bytes
Line 
1module interpol_mod
2
3  use par_mod, only: nzmax, maxspec
4
5  implicit none
6
7  real :: uprof(nzmax),vprof(nzmax),wprof(nzmax)
8  real :: usigprof(nzmax),vsigprof(nzmax),wsigprof(nzmax)
9  real :: rhoprof(nzmax),rhogradprof(nzmax)
10
11  real :: u,v,w,usig,vsig,wsig,pvi
12
13  real :: p1,p2,p3,p4,ddx,ddy,rddx,rddy,dtt,dt1,dt2
14  integer :: ix,jy,ixp,jyp,ngrid,indz,indzp
15  logical :: depoindicator(maxspec)
16  logical :: indzindicator(nzmax)
17
18end module interpol_mod
19
20
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG