Changes from branches/petra/src/concoutput.f90 at r36 to trunk/src/concoutput.f90 at r20

File:

• trunk/src/concoutput.f90 (modified) (4 diffs)

trunk/src/concoutput.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998-2015                                                 *
+! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -47 +47 @@
   !                                                                            *
   !     2008 new sparse matrix format                                          *
-  !     PS, 2/2015: option to produce incremental deposition output 
-  !                 access= -> position=
   !                                                                            *
   !*****************************************************************************
@@ -110 +108 @@
   write(adate,'(i8.8)') jjjjmmdd
   write(atime,'(i6.6)') ihmmss
-  open(unitdates,file=path(2)(1:length(2))//'dates', position='append')
+  open(unitdates,file=path(2)(1:length(2))//'dates', ACCESS='APPEND')
   write(unitdates,'(a)') adate//atime
   close(unitdates)  
@@ -590 +588 @@
   !*************************
 
-  creceptor=0.
-  gridunc=0.
-  if (ldep_incr) then ! incremental deposition output
-    wetgridunc=0.
-    drygridunc=0.
-  endif
-  
+  do ks=1,nspec
+  do kp=1,maxpointspec_act
+    do i=1,numreceptor
+      creceptor(i,ks)=0.
+    end do
+    do jy=0,numygrid-1
+      do ix=0,numxgrid-1
+        do l=1,nclassunc
+          do nage=1,nageclass
+            do kz=1,numzgrid
+              gridunc(ix,jy,kz,ks,kp,l,nage)=0.
+            end do
+          end do
+        end do
+      end do
+    end do
+  end do
+  end do
+
+
 end subroutine concoutput