Changeset 36 for branches/petra/src/readreceptors.f90
- Timestamp:
- Feb 16, 2015, 6:21:09 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/readreceptors.f90
r27 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 * … … 27 27 ! * 28 28 ! Author: A. Stohl * 29 ! 1 August 1996 * 30 ! HSO, 14 August 2013 31 ! Added optional namelist input 29 ! 1 August 1996 30 ! * 31 ! HSO, 14 August 2013: Added optional namelist input 32 ! PS, 2/2015: access= -> position= 32 33 ! * 33 34 !***************************************************************************** … … 81 82 ! prepare namelist output if requested 82 83 if (nmlout.eqv..true.) then 83 open(unitreceptorout,file=path(2)(1:length(2))//'RECEPTORS.namelist', access='append',status='new',err=1000)84 open(unitreceptorout,file=path(2)(1:length(2))//'RECEPTORS.namelist',position='append',status='new',err=1000) 84 85 endif 85 86
Note: See TracChangeset
for help on using the changeset viewer.