Changeset c2bd55e in flexpart.git
- Timestamp:
- Nov 24, 2017, 1:52:19 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:
- 0ecc1fe
- Parents:
- 0c00f1f
- Location:
- src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
src/com_mod.f90
rfe32dca rc2bd55e 819 819 allocate(clwchn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,numwfmem,numbnests)) 820 820 allocate(ciwchn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,numwfmem,numbnests)) 821 allocate(ctwcn(0:nxmax -1,0:nymax-1,numwfmem,numbnests))821 allocate(ctwcn(0:nxmaxn-1,0:nymaxn-1,numwfmem,numbnests)) 822 822 823 823 clwcn(:,:,:,:,:)=0. -
src/mpi_mod.f90
rbb579a9 rc2bd55e 1961 1961 if (readclouds) then 1962 1962 j=j+1 1963 call MPI_Irecv(ctwc(:,:,mind),d2s1 *5,mp_sp,id_read,MPI_ANY_TAG,&1963 call MPI_Irecv(ctwc(:,:,mind),d2s1,mp_sp,id_read,MPI_ANY_TAG,& 1964 1964 &MPI_COMM_WORLD,reqs(j),mp_ierr) 1965 1965 if (mp_ierr /= 0) goto 600 … … 2326 2326 if (readclouds) then 2327 2327 j=j+1 2328 call MPI_Irecv(ctwcn(:,:,mind,k),d2s1 *5,mp_sp,id_read,MPI_ANY_TAG,&2328 call MPI_Irecv(ctwcn(:,:,mind,k),d2s1,mp_sp,id_read,MPI_ANY_TAG,& 2329 2329 &MPI_COMM_WORLD,reqs(j),mp_ierr) 2330 2330 if (mp_ierr /= 0) goto 600 -
src/netcdf_output_mod.f90
r4c64400 rc2bd55e 272 272 character(len=10) :: fprefix 273 273 character(len=3) :: anspec 274 character :: adate*8,atime*6,timeunit*32 275 real, dimension(1000) :: coord 274 CHARACTER :: adate*8,atime*6,timeunit*32 275 ! ESO DBG: WHY IS THIS HARDCODED TO 1000? 276 !REAL, DIMENSION(1000) :: coord 277 real, allocatable, dimension(:) :: coord 276 278 277 279 integer :: cache_size … … 613 615 ! longitudes (grid cell centers) 614 616 if (lnest) then 617 if (.not.allocated(coord)) allocate(coord(numxgridn)) 615 618 do i = 1,numxgridn 616 619 coord(i) = outlon0n + (i-0.5)*dxoutn 617 620 enddo 618 621 call nf90_err(nf90_put_var(ncid, lonID, coord(1:numxgridn))) 622 deallocate(coord) 619 623 else 624 if (.not.allocated(coord)) allocate(coord(numxgrid)) 620 625 do i = 1,numxgrid 621 626 coord(i) = outlon0 + (i-0.5)*dxout 622 627 enddo 623 628 call nf90_err(nf90_put_var(ncid, lonID, coord(1:numxgrid))) 629 deallocate(coord) 624 630 endif 625 631 ! latitudes (grid cell centers) 626 632 if (lnest) then 633 if (.not.allocated(coord)) allocate(coord(numygridn)) 627 634 do i = 1,numygridn 628 635 coord(i) = outlat0n + (i-0.5)*dyoutn 629 636 enddo 630 637 call nf90_err(nf90_put_var(ncid, latID, coord(1:numygridn))) 638 deallocate(coord) 631 639 else 640 if (.not.allocated(coord)) allocate(coord(numygrid)) 632 641 do i = 1,numygrid 633 642 coord(i) = outlat0 + (i-0.5)*dyout 634 643 enddo 635 644 call nf90_err(nf90_put_var(ncid, latID, coord(1:numygrid))) 645 deallocate(coord) 636 646 endif 637 647 ! levels -
src/par_mod.f90
r273a015 rc2bd55e 153 153 154 154 ! GFS 155 ! 155 ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=0 156 156 157 157 … … 160 160 !********************************************* 161 161 162 integer,parameter :: maxnests= 0,nxmaxn=451,nymaxn=226162 integer,parameter :: maxnests=1,nxmaxn=451,nymaxn=426 163 163 164 164 ! nxmax,nymax maximum dimension of wind fields in x and y … … 218 218 !************************************************** 219 219 220 integer,parameter :: maxpart=3000000 220 integer,parameter :: maxpart=30000000 221 221 integer,parameter :: maxspec=6 222 222
Note: See TracChangeset
for help on using the changeset viewer.