Changeset 3f149cc in flexpart.git
- Timestamp:
- Apr 5, 2018, 1:39:16 PM (6 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 20963b1
- Parents:
- a9cf4b1
- Location:
- src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/par_mod.f90
ra9cf4b1 r3f149cc 148 148 ! ECMWF 149 149 ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=359 ! 1.0 degree 92 level 150 ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level 151 integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=0 ! 1.0 degree 138 level 150 integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level 152 151 ! integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 0.5 degree 138 level 153 152 ! integer,parameter :: nxmax=181,nymax=91,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=0 ! CERA 2.0 degree 92 level … … 210 209 !integer,parameter :: maxxgrid=361,maxygrid=181,maxxgridn=0,maxygridn=0) 211 210 212 integer,parameter :: maxreceptor=20 0211 integer,parameter :: maxreceptor=20 213 212 214 213 ! maxreceptor maximum number of receptor points … … 219 218 !************************************************** 220 219 221 integer,parameter :: maxpart= 3000000222 integer,parameter :: maxspec= 6220 integer,parameter :: maxpart=100000 221 integer,parameter :: maxspec=1 223 222 224 223 real,parameter :: minmass=0.0001 … … 263 262 !********************************* 264 263 265 integer,parameter :: maxrand= 200000000264 integer,parameter :: maxrand=1000000 266 265 267 266 ! maxrand number of random numbers used -
src/readOHfield.f90
ra9cf4b1 r3f149cc 50 50 implicit none 51 51 52 character(len=150) :: thefile 53 character(len=2) :: mm 54 integer :: nid,ierr,xid,yid,zid,vid,m 55 integer :: i,j,k,l 52 integer :: i,j,k,l,ierr 56 53 real, dimension(:), allocatable :: etaOH 57 54
Note: See TracChangeset
for help on using the changeset viewer.