Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/petra/src/readspecies.f90

    r28 r36  
    11!**********************************************************************
    2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
     2! Copyright 1998-2015                                                 *
    33! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
    44! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
     
    3434  !   N. Kristiansen, 31.01.2013: Including parameters for in-cloud scavenging *
    3535  !                                                                            *
    36   !   HSO, 13 August 2013
    37   !   added optional namelist input
     36  !   HSO, 13 August 2013: added optional namelist input
     37  !   PS, 2/2015: access= -> position=
    3838  !                                                                            *
    3939  !*****************************************************************************
     
    271271  ! namelist output if requested
    272272  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)
    274274    write(unitspecies,nml=species_params)
    275275    close(unitspecies)
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG