Changeset 8a65cb0 in flexpart.git for src/readpartpositions.f90

Timestamp:

Mar 2, 2015, 3:11:55 PM (9 years ago)

Author:

Espen Sollum ATMOS <espen@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

1d207bb

Parents:

60403cd

Message:

Added code, makefile for dev branch

File:

• src/readpartpositions.f90 (modified) (2 diffs)

src/readpartpositions.f90

@@ -40 +40 @@
   use par_mod
   use com_mod
+  use random_mod
 
   implicit none
@@ -45 +46 @@
   integer :: ibdatein,ibtimein,nspecin,itimein,numpointin,i,j,ix
   integer :: id1,id2,it1,it2
-  real :: xlonin,ylatin,ran1,topo,hmixi,pvi,qvi,rhoi,tri,tti
+  real :: xlonin,ylatin,topo,hmixi,pvi,qvi,rhoi,tri,tti
   character :: specin*7
   real(kind=dp) :: julin,julpartin,juldate