source: flexpart.git/FLEXPART_9.1.7.1/src/interpol_mod.f90 @ 6c0154f

ignacio
Last change on this file since 6c0154f was 6c0154f, checked in by Ignacio Pisso <ip@…>, 11 years ago

based on 9.1from hasod; 9.1.1 add sack (trunk); 9.1.2 add NIK scavenging; 9.1.3 add new pesei depo scheme; 9.1.4 warning at readpositions; 9.1.5 xuekun FNL; 9.1.6 rlt FLEXINVERT; 9.1.7 update dates, check slash in COMMAND

git-svn-id: ​http://flexpart.flexpart.eu:8088/svn/FlexPart90/branches/ignacio@14 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