Changeset 36 for branches/petra/src/com_mod.f90
- Timestamp:
- Feb 16, 2015, 6:21:09 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/com_mod.f90
r30 r36 1 !********************************************************************** 2 ! Copyright 1998-2015 * 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 !********************************************************************** 21 22 module com_mod 23 1 24 !******************************************************************************* 2 25 ! Include file for particle diffusion model FLEXPART * … … 7 30 ! June 1996 * 8 31 ! * 9 ! Last update:15 August 2013 IP * 32 ! Modifications: 15 August 2013 IP, 33 ! 2/2015 PS, add incremental deposition switch 10 34 ! * 11 35 !******************************************************************************* 12 13 module com_mod14 36 15 37 use par_mod, only: dp, numpath, maxnests, maxageclass, maxspec, ni, & … … 69 91 integer :: mquasilag,nested_output,ind_source,ind_receptor 70 92 integer :: ind_rel,ind_samp,ioutputforeachrelease,linit_cond,surf_only 71 logical :: turbswitch 93 logical :: turbswitch, ldep_incr 72 94 73 95 ! ctl factor, by which time step must be smaller than Lagrangian time scale … … 98 120 ! nested_output: 0 no, 1 yes 99 121 ! turbswitch determines how the Markov chain is formulated 122 ! ldep_incr: .true. incremental deposition, .false. accumulated deposition 100 123 101 124 ! ind_rel and ind_samp are used within the code to change between mass and mass-mix (see readcommand.f) … … 136 159 character :: compoint(1001)*45 137 160 integer :: numpoint 138 ! sec, now dynamically allocated:161 !SE, now dynamically allocated: 139 162 ! ireleasestart(maxpoint),ireleaseend(maxpoint) 140 163 ! real xpoint1(maxpoint),ypoint1(maxpoint) … … 155 178 real :: rgs(maxspec,5,numclass),rlu(maxspec,5,numclass) 156 179 real :: rm(maxspec),dryvel(maxspec),kao(maxspec),ohreact(maxspec) 157 ! seit is possible to associate a species with a second one to make transfer from gas to aerosol180 ! SE it is possible to associate a species with a second one to make transfer from gas to aerosol 158 181 integer :: spec_ass(maxspec) 159 182 … … 549 572 real :: dxoutn,dyoutn,outlon0n,outlat0n,xoutshiftn,youtshiftn 550 573 !real outheight(maxzgrid),outheighthalf(maxzgrid) 551 logical :: DEP,DRYDEP,DRYDEPSPEC(maxspec),WETDEP,OHREA,ASSSPEC574 logical :: dep,drydep,drydepspec(maxspec),wetdep,ohrea,assspec 552 575 553 576 ! numxgrid,numygrid number of grid points in x,y-direction … … 562 585 ! outheight [m] upper levels of the output grid 563 586 ! outheighthalf [m] half (middle) levels of the output grid cells 564 ! DEP.true., if either dry or wet depos. is switched on565 ! DRYDEP.true., if dry deposition is switched on566 ! DRYDEPSPEC.true., if dry deposition is switched on for that species567 ! WETDEP.true., if wet deposition is switched on568 ! OHREA .true., if OHreaction is switched on569 ! ASSSPEC.true., if there are two species asscoiated587 ! dep .true., if either dry or wet depos. is switched on 588 ! drydep .true., if dry deposition is switched on 589 ! drydepspec .true., if dry deposition is switched on for that species 590 ! wetdep .true., if wet deposition is switched on 591 ! ohrea .true., if oh reaction is switched on 592 ! assspec .true., if there are two species asscoiated 570 593 ! (i.e. transfer of mass between these two occurs 571 594
Note: See TracChangeset
for help on using the changeset viewer.