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

File:

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

trunk/src/readreceptors.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   *
@@ -27 +27 @@
   !                                                                            *
   !     Author: A. Stohl                                                       *
-  !     1 August 1996        
-  !                                                  *
-  !     HSO, 14 August 2013: Added optional namelist input
-  !     PS, 2/2015: access= -> position=
+  !     1 August 1996                                                          *
+  !     HSO, 14 August 2013
+  !     Added optional namelist input
   !                                                                            *
   !*****************************************************************************
@@ -82 +81 @@
   ! prepare namelist output if requested
   if (nmlout.eqv..true.) then
-    open(unitreceptorout,file=path(2)(1:length(2))//'RECEPTORS.namelist',position='append',status='new',err=1000)
+    open(unitreceptorout,file=path(2)(1:length(2))//'RECEPTORS.namelist',access='append',status='new',err=1000)
   endif