source: flexpart.git/src/interpol_mod.f90 @ 02095e3

FPv9.3.1FPv9.3.1b_testingFPv9.3.2NetCDFdepositiondevflexpart-noresmfp9.3.1-20161214-nc4grib2nc4_repairinputlistlaptoprelease-10svn-petrasvn-trunkunivie
Last change on this file since 02095e3 was e200b7a, checked in by Matthias Langer <matthias.langer@…>, 7 years ago

git-svn-id: http://flexpart.flexpart.eu:8088/svn/FlexPart90/trunk@4 ef8cc7e1-21b7-489e-abab-c1baa636049d

  • Property mode set to 100644
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