Commit 5deb48c1 authored by Sabine's avatar Sabine
Browse files

cosmetical changes (comments)

parent df4a68e2
...@@ -295,8 +295,8 @@ subroutine readcommand ...@@ -295,8 +295,8 @@ subroutine readcommand
!Af IND_RECEPTOR switches between different units for concentrations at the receptor !Af IND_RECEPTOR switches between different units for concentrations at the receptor
!Af 1 = mass units !Af 1 = mass units
!Af 2 = mass mixing ratio units !Af 2 = mass mixing ratio units
!Af 3 = wet deposition in outputfield ! 3 = wet deposition in outputfield
!Af 4 = dry deposition in outputfield ! 4 = dry deposition in outputfield
if ( ldirect .eq. 1 ) then ! FWD-Run if ( ldirect .eq. 1 ) then ! FWD-Run
!Af set release-switch !Af set release-switch
......
...@@ -597,8 +597,8 @@ subroutine timemanager ...@@ -597,8 +597,8 @@ subroutine timemanager
endif endif
call advance(itime,npoint(j),idt(j),uap(j),ucp(j),uzp(j), & 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, & us(j),vs(j),ws(j),nstop,xtra1(j),ytra1(j),ztra1(j),prob, &
cbt(j)) cbt(j))
! write (*,*) 'advance: ',prob(1),xmass1(j,1),ztra1(j) ! write (*,*) 'advance: ',prob(1),xmass1(j,1),ztra1(j)
! Calculate the gross fluxes across layer interfaces ! Calculate the gross fluxes across layer interfaces
......
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