Commit bcb2cfcc authored by dingwell's avatar dingwell
Browse files

Fixed outgrid field (broken after merge)

parent 04d0c519
......@@ -36,12 +36,12 @@ module outg_mod
real,allocatable, dimension (:,:,:) :: densityoutgrid
real,allocatable, dimension (:,:,:) :: factor3d
real,allocatable, dimension (:,:,:) :: grid
real,allocatable, dimension (:,:,:,:) :: grid2
real,allocatable, dimension (:,:,:,:) :: grid3
real,allocatable, dimension (:,:,:,:,:) :: grid2
real,allocatable, dimension (:,:,:,:,:) :: grid3
real,allocatable, dimension (:,:) :: wetgrid
real,allocatable, dimension (:,:,:) :: wetgrid2
real,allocatable, dimension (:,:,:,:) :: wetgrid2
real,allocatable, dimension (:,:) :: drygrid
real,allocatable, dimension (:,:,:) :: drygrid2
real,allocatable, dimension (:,:,:,:) :: drygrid2
real,allocatable, dimension (:,:,:) :: gridsigma
real,allocatable, dimension (:,:) :: drygridsigma
real,allocatable, dimension (:,:) :: wetgridsigma
......
......@@ -302,7 +302,7 @@
allocate(grid2(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act),stat=stat)
allocate(grid3(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act),stat=stat)
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
allocate(densityoutgrid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid),stat=stat)
......
......@@ -273,7 +273,7 @@
allocate(grid2(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act),stat=stat)
allocate(grid3(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act),stat=stat)
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
allocate(densityoutgrid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid),stat=stat)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment