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


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • src/releaseparticles.f90

    re200b7a r8a65cb0  
    5050  use par_mod
    5151  use com_mod
     52  use random_mod, only: ran1
    5253
    5354  implicit none
    5455
    5556  !real xaux,yaux,zaux,ran1,rfraction,xmasssave(maxpoint)
    56   real :: xaux,yaux,zaux,ran1,rfraction
     57  real :: xaux,yaux,zaux,rfraction
    5758  real :: topo,rhoaux(2),r,t,rhoout,ddx,ddy,rddx,rddy,p1,p2,p3,p4
    5859  real :: dz1,dz2,dz,xtn,ytn,xlonav,timecorrect(maxspec),press,pressold
     
    6768  !save idummy,xmasssave
    6869  !data idummy/-7/,xmasssave/maxpoint*0./
     70
    6971
    7072
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG