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/readreleases.f90

    r27 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   *
     
    3333  !     Update: 29 January 2001                                                *
    3434  !     Release altitude can be either in magl or masl                         *
    35   !     HSO, 12 August 2013
    36   !     Added optional namelist input
     35  !     HSO, 12 August 2013: Added optional namelist input
     36  !     PS, 2/2015: access= -> position=
     37  !
    3738  !                                                                            *
    3839  !*****************************************************************************
     
    126127  ! prepare namelist output if requested
    127128  if (nmlout.eqv..true.) then
    128     open(unitreleasesout,file=path(2)(1:length(2))//'RELEASES.namelist',access='append',status='new',err=1000)
     129    open(unitreleasesout,file=path(2)(1:length(2))//'RELEASES.namelist',position='append',status='new',err=1000)
    129130  endif
    130131
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG