Changeset f3054ea in flexpart.git for src/concoutput_surf_nest_mpi.f90
- Timestamp:
- Aug 27, 2020, 8:00:15 PM (4 years ago)
- Branches:
- GFS_025, dev
- Children:
- 4ab2fbf
- Parents:
- a756649
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput_surf_nest_mpi.f90
r38b7917 rf3054ea 651 651 652 652 do ks=1,nspec 653 do kp=1,maxpointspec_act 654 do i=1,numreceptor 655 creceptor(i,ks)=0. 656 end do 657 do jy=0,numygridn-1 658 do ix=0,numxgridn-1 659 do l=1,nclassunc 660 do nage=1,nageclass 661 do kz=1,numzgrid 662 griduncn(ix,jy,kz,ks,kp,l,nage)=0. 653 do kp=1,maxpointspec_act 654 do i=1,numreceptor 655 creceptor(i,ks)=0. 656 end do 657 do jy=0,numygridn-1 658 do ix=0,numxgridn-1 659 do l=1,nclassunc 660 do nage=1,nageclass 661 do kz=1,numzgrid 662 griduncn(ix,jy,kz,ks,kp,l,nage)=0. 663 end do 663 664 end do 664 665 end do … … 666 667 end do 667 668 end do 668 end do669 669 end do 670 670
Note: See TracChangeset
for help on using the changeset viewer.