Changeset 1070b4c in flexpart.git for src/concoutput_surf_nest_mpi.f90
- Timestamp:
- Aug 27, 2020, 9:51:56 PM (4 years ago)
- Branches:
- GFS_025, dev
- Children:
- b0ecb61
- Parents:
- 8c0ae9b (diff), a803521 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput_surf_nest_mpi.f90
r92fab65 ra803521 633 633 634 634 do ks=1,nspec 635 do kp=1,maxpointspec_act 636 do i=1,numreceptor 637 creceptor(i,ks)=0. 638 end do 639 do jy=0,numygridn-1 640 do ix=0,numxgridn-1 641 do l=1,nclassunc 642 do nage=1,nageclass 643 do kz=1,numzgrid 644 griduncn(ix,jy,kz,ks,kp,l,nage)=0. 635 do kp=1,maxpointspec_act 636 do i=1,numreceptor 637 creceptor(i,ks)=0. 638 end do 639 do jy=0,numygridn-1 640 do ix=0,numxgridn-1 641 do l=1,nclassunc 642 do nage=1,nageclass 643 do kz=1,numzgrid 644 griduncn(ix,jy,kz,ks,kp,l,nage)=0. 645 end do 645 646 end do 646 647 end do … … 648 649 end do 649 650 end do 650 end do651 651 end do 652 652
Note: See TracChangeset
for help on using the changeset viewer.