Changes from trunk/src/readspecies.f90 at r28 to branches/petra/src/readspecies.f90 at r36
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/readspecies.f90
r28 r36 1 1 !********************************************************************** 2 ! Copyright 1998 ,1999,2000,2001,2002,2005,2007,2008,2009,2010*2 ! Copyright 1998-2015 * 3 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * … … 34 34 ! N. Kristiansen, 31.01.2013: Including parameters for in-cloud scavenging * 35 35 ! * 36 ! HSO, 13 August 2013 37 ! added optional namelist input36 ! HSO, 13 August 2013: added optional namelist input 37 ! PS, 2/2015: access= -> position= 38 38 ! * 39 39 !***************************************************************************** … … 271 271 ! namelist output if requested 272 272 if (nmlout.eqv..true.) then 273 open(unitspecies,file=path(2)(1:length(2))//'SPECIES_'//aspecnumb//'.namelist', access='append',status='new',err=1000)273 open(unitspecies,file=path(2)(1:length(2))//'SPECIES_'//aspecnumb//'.namelist',position='append',status='new',err=1000) 274 274 write(unitspecies,nml=species_params) 275 275 close(unitspecies)
Note: See TracChangeset
for help on using the changeset viewer.