Commit 7eeb484a authored by dingwell's avatar dingwell
Browse files

Fixed grid2 dimension and typo in readinput

(Problems after merge JB)
parent bcb2cfcc
......@@ -300,7 +300,7 @@
allocate(grid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid),stat=stat)
allocate(grid2(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)
allocate(grid3(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
......@@ -329,12 +329,12 @@
allocate(wetgrid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1),stat=stat)
allocate(wetgrid2(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,maxpointspec_act),stat=stat)
0:max(numygrid,numygridn)-1,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
allocate(drygrid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1),stat=stat)
allocate(drygrid2(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,maxpointspec_act),stat=stat)
0:max(numygrid,numygridn)-1,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
endif
......
......@@ -271,7 +271,7 @@
allocate(grid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid),stat=stat)
allocate(grid2(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)
allocate(grid3(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,numzgrid,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
......@@ -300,12 +300,12 @@
allocate(wetgrid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1),stat=stat)
allocate(wetgrid2(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,maxpointspec_act),stat=stat)
0:max(numygrid,numygridn)-1,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
allocate(drygrid(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1),stat=stat)
allocate(drygrid2(0:max(numxgrid,numxgridn)-1, &
0:max(numygrid,numygridn)-1,maxpointspec_act),stat=stat)
0:max(numygrid,numygridn)-1,maxpointspec_act,nageclass),stat=stat)
if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
endif
......
......@@ -1887,7 +1887,7 @@ subroutine readinput
open(unitpartin,file=path(1)(1:length(1))//'partposit_end', &
form='formatted',err=998)
endif
if(verbose_option .ge. 1) print*,'numpart_in',numpart_in
if(option_verbose .ge. 1) print*,'numpart_in',numpart_in
if (iouttype .eq. 0 .or. iouttype .eq.2) then
read(unitpartin,end=99) itimein,numpart_in, iomode_xycoord_in
else
......
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