Changes in src/concoutput_surf_nest_mpi.f90 [92fab65:f3054ea] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput_surf_nest_mpi.f90
r92fab65 rf3054ea 1 ! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt 2 ! SPDX-License-Identifier: GPL-3.0-or-later 1 !********************************************************************** 2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 * 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * 5 ! * 6 ! This file is part of FLEXPART. * 7 ! * 8 ! FLEXPART is free software: you can redistribute it and/or modify * 9 ! it under the terms of the GNU General Public License as published by* 10 ! the Free Software Foundation, either version 3 of the License, or * 11 ! (at your option) any later version. * 12 ! * 13 ! FLEXPART is distributed in the hope that it will be useful, * 14 ! but WITHOUT ANY WARRANTY; without even the implied warranty of * 15 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * 16 ! GNU General Public License for more details. * 17 ! * 18 ! You should have received a copy of the GNU General Public License * 19 ! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. * 20 !********************************************************************** 3 21 4 22 subroutine concoutput_surf_nest(itime,outnum) … … 633 651 634 652 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. 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 645 664 end do 646 665 end do … … 648 667 end do 649 668 end do 650 end do651 669 end do 652 670
Note: See TracChangeset
for help on using the changeset viewer.