Changeset 5deb48c in flexpart.git

Timestamp:

Oct 18, 2016, 9:05:24 AM (8 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

657fa36

Parents:

df4a68e

Message:

cosmetical changes (comments)

Location:

src

Files:

• readcommand.f90 (modified) (1 diff)
• timemanager.f90 (modified) (1 diff)

src/readcommand.f90

@@ -296 +296 @@
   !Af          1 = mass units
   !Af          2 = mass mixing ratio units
-  !Af          3 = wet deposition in outputfield
-  !Af          4 = dry deposition in outputfield
+  !            3 = wet deposition in outputfield
+  !            4 = dry deposition in outputfield
 
   if ( ldirect .eq. 1 ) then  ! FWD-Run

src/timemanager.f90

@@ -598 +598 @@
      
         call advance(itime,npoint(j),idt(j),uap(j),ucp(j),uzp(j), &
-            us(j),vs(j),ws(j),nstop,xtra1(j),ytra1(j),ztra1(j),prob, &
-            cbt(j))
+             us(j),vs(j),ws(j),nstop,xtra1(j),ytra1(j),ztra1(j),prob, &
+             cbt(j))
 !        write (*,*) 'advance: ',prob(1),xmass1(j,1),ztra1(j)