Commit 6e8b6568 authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

reduced size of arrays to compile in yosemite with gfortran 5.2

parent 37f72114
......@@ -103,7 +103,8 @@
! monitoring variables
real :: sumconv,sumall,sumpart
integer :: sumpartgrid(1000000)
! integer :: sumpartgrid(1000000)
integer :: sumpartgrid(100000)
! print *, "IN convmix_kfeta"
! write(*,'(//a,a//)')
......
......@@ -124,7 +124,8 @@ module par_mod
!integer,parameter :: nxmax=364,nymax=244,nuvzmax=45,nwzmax=45,nzmax=45
!integer,parameter :: nxmax=454,nymax=334,nuvzmax=45,nwzmax=45,nzmax=45
integer,parameter :: nxmax=250,nymax=190,nuvzmax=61,nwzmax=61,nzmax=61
!integer,parameter :: nxmax=250,nymax=190,nuvzmax=61,nwzmax=61,nzmax=61
integer,parameter :: nxmax=100,nymax=100,nuvzmax=20,nwzmax=20,nzmax=20
!integer,parameter :: nxmax=182,nymax=182,nuvzmax=61,nwzmax=61,nzmax=61
!integer,parameter :: nxmax=1081,nymax=260,nuvzmax=89,nwzmax=89,nzmax=89
......@@ -157,8 +158,8 @@ module par_mod
! Maximum dimensions of the nested input grids
!*********************************************
!integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
integer,parameter :: maxnests=2,nxmaxn=400,nymaxn=283
integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
!integer,parameter :: maxnests=2,nxmaxn=400,nymaxn=283
!integer,parameter :: maxnests=1,nxmaxn=312,nymaxn=312
! maxnests maximum number of nested grids
......@@ -222,7 +223,8 @@ module par_mod
! ---------
! Sabine Eckhardt: change of landuse inventary numclass=13
! ---------
integer,parameter :: maxwf=50000, maxtable=1000, numclass=13, ni=11
!integer,parameter :: maxwf=50000, maxtable=1000, numclass=13, ni=11
integer,parameter :: maxwf=50, maxtable=4, numclass=13, ni=11
! maxwf maximum number of wind fields to be used for simulation
! maxtable Maximum number of chemical species that can be
......
......@@ -74,7 +74,8 @@ subroutine readlanduse
integer :: ix,jy,i,k,lu_cat,lu_perc
integer(kind=1) :: ilr
integer(kind=1) :: ilr_buffer(2160000)
!integer(kind=1) :: ilr_buffer(2160000)
integer(kind=1) :: ilr_buffer(21600)
integer :: il,irecread
real :: rlr, r2lr
......@@ -97,7 +98,8 @@ subroutine readlanduse
! +form='UNFORMATTED', err=998)
form='UNFORMATTED', err=998, convert='little_endian')
! print*,unitland
read (unitland) (ilr_buffer(i),i=1,2160000)
!read (unitland) (ilr_buffer(i),i=1,2160000)
read (unitland) (ilr_buffer(i),i=1,21600)
close(unitland)
irecread=1
......
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