Changes from branches/petra/src/writeheader.f90 at r36 to trunk/src/writeheader.f90 at r20
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/writeheader.f90
r36 r20 1 1 !********************************************************************** 2 ! Copyright 1998 -2015*2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 * 3 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * … … 33 33 ! 7 August 2002 * 34 34 ! * 35 ! 2/2015, AP+PS: version string length written36 ! 2/2015, PS: write out ldep_incr37 35 !***************************************************************************** 38 36 ! * … … 69 67 70 68 if (ldirect.eq.1) then 71 write(unitheader) ibdate,ibtime, len_trim(flexversion), trim(flexversion)69 write(unitheader) ibdate,ibtime, trim(flexversion) 72 70 else 73 write(unitheader) iedate,ietime, len_trim(flexversion), trim(flexversion)71 write(unitheader) iedate,ietime, trim(flexversion) 74 72 endif 75 73 … … 82 80 !*************************************** 83 81 84 write(unitheader) outlon0,outlat0,numxgrid,numygrid,dxout,dyout 82 write(unitheader) outlon0,outlat0,numxgrid,numygrid, & 83 dxout,dyout 85 84 write(unitheader) numzgrid,(outheight(i),i=1,numzgrid) 86 85 … … 128 127 !***************************************** 129 128 130 write(unitheader) method,lsubgrid,lconvection, ind_source,ind_receptor 129 write(unitheader) method,lsubgrid,lconvection, & 130 ind_source,ind_receptor 131 131 132 132 ! Write age class information … … 142 142 write(unitheader) (oroout(ix,jy),jy=0,numygrid-1) 143 143 end do 144 145 ! Write deposition type146 !***********************147 148 write(unitheader) ldep_incr149 150 151 144 close(unitheader) 152 145
Note: See TracChangeset
for help on using the changeset viewer.