Changeset 36 for branches/petra/src/writeheader.f90

Timestamp:

Feb 16, 2015, 6:21:09 PM (9 years ago)

Author:

pesei

Message:

Implement switch for incremental deposition, see ticket:113 and many small changes, see changelog.txt

File:

• branches/petra/src/writeheader.f90 (modified) (6 diffs)

branches/petra/src/writeheader.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
+! Copyright 1998-2015                                                 *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -33 +33 @@
   !     7 August 2002                                                          *
   !                                                                            *
+  !     2/2015, AP+PS: version string length written  
+  !     2/2015, PS: write out ldep_incr
   !*****************************************************************************
   !                                                                            *
@@ -67 +69 @@
 
   if (ldirect.eq.1) then
-    write(unitheader) ibdate,ibtime, trim(flexversion)
+    write(unitheader) ibdate,ibtime, len_trim(flexversion), trim(flexversion) 
   else
-    write(unitheader) iedate,ietime, trim(flexversion)
+    write(unitheader) iedate,ietime, len_trim(flexversion), trim(flexversion) 
   endif
 
@@ -80 +82 @@
   !***************************************
 
-  write(unitheader) outlon0,outlat0,numxgrid,numygrid, &
-       dxout,dyout
+  write(unitheader) outlon0,outlat0,numxgrid,numygrid,dxout,dyout
   write(unitheader) numzgrid,(outheight(i),i=1,numzgrid)
 
@@ -127 +128 @@
   !*****************************************
 
-  write(unitheader) method,lsubgrid,lconvection, &
-       ind_source,ind_receptor
+  write(unitheader) method,lsubgrid,lconvection, ind_source,ind_receptor
 
   ! Write age class information
@@ -142 +142 @@
     write(unitheader) (oroout(ix,jy),jy=0,numygrid-1)
   end do
+
+  ! Write deposition type 
+  !***********************
+  
+  write(unitheader) ldep_incr
+
+
   close(unitheader)