Changes from branches/petra/src/com_mod.f90 at r36 to trunk/src/com_mod.f90 at r30

File:

• trunk/src/com_mod.f90 (modified) (8 diffs)

trunk/src/com_mod.f90

@@ -1 @@
-!**********************************************************************
-! Copyright 1998-2015                                                 *
-! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
-! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
-!                                                                     *
-! This file is part of FLEXPART.                                      *
-!                                                                     *
-! FLEXPART is free software: you can redistribute it and/or modify    *
-! it under the terms of the GNU General Public License as published by*
-! the Free Software Foundation, either version 3 of the License, or   *
-! (at your option) any later version.                                 *
-!                                                                     *
-! FLEXPART is distributed in the hope that it will be useful,         *
-! but WITHOUT ANY WARRANTY; without even the implied warranty of      *
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
-! GNU General Public License for more details.                        *
-!                                                                     *
-! You should have received a copy of the GNU General Public License   *
-! along with FLEXPART.  If not, see <http://www.gnu.org/licenses/>.   *
-!**********************************************************************
-
-module com_mod
-
 !*******************************************************************************
 !        Include file for particle diffusion model FLEXPART                    *
@@ -30 +7 @@
 !        June 1996                                                             *
 !                                                                              *
-!        Modifications: 15 August 2013 IP, 
-!        2/2015 PS, add incremental deposition switch
+!        Last update:15 August 2013 IP                                         *
 !                                                                              *
 !*******************************************************************************
+
+module com_mod
 
   use par_mod, only: dp, numpath, maxnests, maxageclass, maxspec, ni, &
@@ -91 +69 @@
   integer :: mquasilag,nested_output,ind_source,ind_receptor
   integer :: ind_rel,ind_samp,ioutputforeachrelease,linit_cond,surf_only
-  logical :: turbswitch, ldep_incr
+  logical :: turbswitch
 
   ! ctl      factor, by which time step must be smaller than Lagrangian time scale
@@ -120 +98 @@
   ! nested_output: 0 no, 1 yes
   ! turbswitch              determines how the Markov chain is formulated
-  ! ldep_incr: .true. incremental deposition, .false. accumulated deposition
 
   ! ind_rel and ind_samp  are used within the code to change between mass and mass-mix (see readcommand.f)
@@ -159 +136 @@
   character :: compoint(1001)*45
   integer :: numpoint
-  !SE, now dynamically allocated:
+  !sec, now dynamically allocated:
   ! ireleasestart(maxpoint),ireleaseend(maxpoint)
   !      real xpoint1(maxpoint),ypoint1(maxpoint)
@@ -178 +155 @@
   real :: rgs(maxspec,5,numclass),rlu(maxspec,5,numclass)
   real :: rm(maxspec),dryvel(maxspec),kao(maxspec),ohreact(maxspec)
-  ! SE  it is possible to associate a species with a second one to make transfer from gas to aerosol
+  ! se  it is possible to associate a species with a second one to make transfer from gas to aerosol
   integer :: spec_ass(maxspec)
 
@@ -572 +549 @@
   real :: dxoutn,dyoutn,outlon0n,outlat0n,xoutshiftn,youtshiftn
   !real outheight(maxzgrid),outheighthalf(maxzgrid)
-  logical :: dep,drydep,drydepspec(maxspec),wetdep,ohrea,assspec
+  logical :: DEP,DRYDEP,DRYDEPSPEC(maxspec),WETDEP,OHREA,ASSSPEC
 
   ! numxgrid,numygrid       number of grid points in x,y-direction
@@ -585 +562 @@
   ! outheight [m]           upper levels of the output grid
   ! outheighthalf [m]       half (middle) levels of the output grid cells
-  ! dep                     .true., if either dry or wet depos. is switched on
-  ! drydep                  .true., if dry deposition is switched on
-  ! drydepspec              .true., if dry deposition is switched on for that species
-  ! wetdep                  .true., if wet deposition is switched on
-  ! ohrea                   .true., if oh reaction is switched on
-  ! assspec                 .true., if there are two species asscoiated
+  ! DEP                     .true., if either dry or wet depos. is switched on
+  ! DRYDEP                  .true., if dry deposition is switched on
+  ! DRYDEPSPEC              .true., if dry deposition is switched on for that species
+  ! WETDEP                  .true., if wet deposition is switched on
+  ! OHREA                   .true., if OH reaction is switched on
+  ! ASSSPEC                 .true., if there are two species asscoiated
   !                    (i.e. transfer of mass between these two occurs