Changeset 3f149cc in flexpart.git


Ignore:
Timestamp:
Apr 5, 2018, 1:39:16 PM (6 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
20963b1
Parents:
a9cf4b1
Message:

Removed unused variables

Location:
src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • src/par_mod.f90

    ra9cf4b1 r3f149cc  
    148148  ! ECMWF
    149149! 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
    152151! integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359  ! 0.5 degree 138 level
    153152!  integer,parameter :: nxmax=181,nymax=91,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=0  ! CERA 2.0 degree 92 level
     
    210209  !integer,parameter :: maxxgrid=361,maxygrid=181,maxxgridn=0,maxygridn=0)
    211210
    212   integer,parameter :: maxreceptor=200
     211  integer,parameter :: maxreceptor=20
    213212
    214213  ! maxreceptor             maximum number of receptor points
     
    219218  !**************************************************
    220219
    221   integer,parameter :: maxpart=3000000                                         
    222   integer,parameter :: maxspec=6
     220  integer,parameter :: maxpart=100000
     221  integer,parameter :: maxspec=1
    223222
    224223  real,parameter :: minmass=0.0001
     
    263262  !*********************************
    264263
    265   integer,parameter :: maxrand=200000000
     264  integer,parameter :: maxrand=1000000
    266265
    267266  ! maxrand                 number of random numbers used
  • src/readOHfield.f90

    ra9cf4b1 r3f149cc  
    5050  implicit none
    5151
    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
    5653  real, dimension(:), allocatable :: etaOH
    5754
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG