Commit c6e2f689 authored by dingwell's avatar dingwell
Browse files

cleaned up comments

parent ee413c34
......@@ -182,7 +182,6 @@ module com_mod
!real zpoint1(maxpoint),zpoint2(maxpoint)
!integer*2 kindz(maxpoint)
integer :: specnum(maxspec)
!real xmass(maxpoint,maxspec)
real :: decay(maxspec)
real :: weta(maxspec),wetb(maxspec)
real :: reldiff(maxspec),henry(maxspec),f0(maxspec)
......@@ -206,7 +205,7 @@ module com_mod
! compoint comment, also "name" of each starting point
! numpoint actual number of trajectory starting/ending points
! ireleasestart,ireleaseend [s] starting and ending time of each release
! xmass total mass emitted
! xmass(point,spec) total mass emitted
! xpoint1,ypoint1 lower left coordinates of release area
! xpoint2,ypoint2 upper right coordinates of release area
! zpoint1,zpoint2 min./max. z-coordinates of release points
......@@ -726,12 +725,6 @@ module com_mod
integer :: numpart
integer :: numparticlecount
! integer :: itra1(maxpart)
! integer :: npoint(maxpart),nclass(maxpart)
! integer :: idt(maxpart),itramem(maxpart),itrasplit(maxpart)
! real(kind=dp) :: xtra1(maxpart),ytra1(maxpart)
! real :: ztra1(maxpart)
! real :: xmass1(maxpart,maxspec)
real,allocatable, dimension (:,:) :: xmass1
! real,allocatable, dimension (:,:) :: drydep1
......@@ -744,20 +737,17 @@ module com_mod
real,allocatable, dimension (:) :: uap,ucp,uzp
real,allocatable, dimension (:) :: us,vs,ws
integer(kind=2),allocatable, dimension (:) :: cbt
! real,save :: xmasssave(maxpart)
! numpart actual number of particles in memory
! itra1 (maxpart) [s] temporal positions of the particles
! npoint(maxpart) indicates the release point of each particle
! nclass (maxpart) one of nclassunc classes to which the particle is attributed
! itramem (maxpart) [s] memorized release times of the particles
! itrasplit (maxpart) [s] next time when particle is to be split into two
! idt(maxpart) [s] time step to be used for next integration
! numparticlecount counts the total number of particles that have been released
! xtra1,ytra1,ztra1 spatial positions of the particles
! xmass1 [kg] particle masses
! numpart actual number of particles in memory
! itra1 (particles) [s] temporal positions of the particles
! npoint(particles) indicates the release point of each particle
! nclass (particles) one of nclassunc classes to which the particle is attributed
! itramem (particles) [s] memorized release times of the particles
! itrasplit (particles) [s] next time when particle is to be split into two
! idt(part) [s] time step to be used for next integration
! numparticlecount counts the total number of particles that have been released
! xtra1,ytra1,ztra1 spatial positions of the particles
! xmass1(npartot,species) [kg] particle masses
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment