write(*,*)'FLEXPART error: Too many grid points in x direction.'
write(*,*)'Reduce resolution of wind fields (file GRIDSPEC)'
write(*,*)'for nesting level ',l
write(*,*)'Or change parameter settings in file par_mod.'
write(*,*)nxn(l),nxmaxn
stop
endif
if(nyn(l).gt.nymaxn)then
write(*,*)'FLEXPART error: Too many grid points in y direction.'
write(*,*)'Reduce resolution of wind fields (file GRIDSPEC)'
write(*,*)'for nesting level ',l
write(*,*)'Or change parameter settings in file par_mod.'
write(*,*)nyn(l),nymaxn
stop
endif
!HSO get the second part of the grid dimensions only from GRiB1 messages
if(isec1(6).eq.167.and.(gotGrib.eq.0))then!added by mc to make it consistent with new gridchek.f90 note that gotGrid must be changed in gotGrib!!
callgrib_get_real8(igrib,'longitudeOfFirstGridPointInDegrees',&!comment by mc: note that this was in the (if (ifield.eq.1) ..end above in gridchek.f90 see line 257
...
...
@@ -332,24 +346,6 @@ subroutine gridcheck_nests
nwzn=iwmax
if(nuvzn.eq.nlev_ec)nwzn=nlev_ecn+1
if(nxn(l).gt.nxmaxn)then
write(*,*)'FLEXPART error: Too many grid points in x direction.'
write(*,*)'Reduce resolution of wind fields (file GRIDSPEC)'
write(*,*)'for nesting level ',l
write(*,*)'Or change parameter settings in file par_mod.'
write(*,*)nxn(l),nxmaxn
stop
endif
if(nyn(l).gt.nymaxn)then
write(*,*)'FLEXPART error: Too many grid points in y direction.'
write(*,*)'Reduce resolution of wind fields (file GRIDSPEC)'
write(*,*)'for nesting level ',l
write(*,*)'Or change parameter settings in file par_mod.'
write(*,*)nyn(l),nymaxn
stop
endif
if((nuvzn.gt.nuvzmax).or.(nwzn.gt.nwzmax))then
write(*,*)'FLEXPART error: Nested wind fields have too many'//&