Changes from branches/petra/src/readreleases.f90 at r36 to trunk/src/readreleases.f90 at r27

File:

• trunk/src/readreleases.f90 (modified) (3 diffs)

trunk/src/readreleases.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998-2015                                                 *
+! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -33 +33 @@
   !     Update: 29 January 2001                                                *
   !     Release altitude can be either in magl or masl                         *
-  !     HSO, 12 August 2013: Added optional namelist input
-  !     PS, 2/2015: access= -> position=
-  !
+  !     HSO, 12 August 2013
+  !     Added optional namelist input
   !                                                                            *
   !*****************************************************************************
@@ -127 +126 @@
   ! prepare namelist output if requested
   if (nmlout.eqv..true.) then
-    open(unitreleasesout,file=path(2)(1:length(2))//'RELEASES.namelist',position='append',status='new',err=1000)
+    open(unitreleasesout,file=path(2)(1:length(2))//'RELEASES.namelist',access='append',status='new',err=1000)
   endif