Changeset 8a65cb0 in flexpart.git for src/init_domainfill.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/init_domainfill.f90

    re200b7a r8a65cb0  
    4949  use par_mod
    5050  use com_mod
     51  use random_mod
    5152
    5253  implicit none
    5354
    5455  integer :: j,ix,jy,kz,ncolumn,numparttot
    55   real :: gridarea(0:nymax-1),pp(nzmax),ylat,ylatp,ylatm,hzone,ran1
     56  real :: gridarea(0:nymax-1),pp(nzmax),ylat,ylatp,ylatm,hzone
    5657  real :: cosfactm,cosfactp,deltacol,dz1,dz2,dz,pnew,fractus
    5758  real,parameter :: pih=pi/180.
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG