Changeset 660bcb7 in flexpart.git for src/readreceptors.f90

Timestamp:

Nov 24, 2014, 1:36:35 PM (9 years ago)

Author:

Anne Fouilloux <annefou@…>

Branches:

NetCDF

Children:

3073eaf

Parents:

4bf4a69

Message:

NETCDF outputs from svn trunk (hasod: ADD: netcdf module file)
I did not take changes in advance.f90; it will be added later.
I also changed OPENs where status was set to new and access is set to APPEND (had problems on abel.uio.no with intel compilers 2013.sp1.3)
It should contains technical changes only and results should be identical.

File:

• src/readreceptors.f90 (modified) (2 diffs)

src/readreceptors.f90

@@ -81 +81 @@
   ! prepare namelist output if requested
   if (nmlout.eqv..true.) then
-    open(unitreceptorout,file=path(2)(1:length(2))//'RECEPTORS.namelist',access='append',status='new',err=1000)
+    open(unitreceptorout,file=path(2)(1:length(2))//'RECEPTORS.namelist',access='append',status='unknown',err=1000)
   endif
 
@@ -179 +179 @@
   stop
 
-1000 write(*,*) ' #### FLEXPART MODEL ERROR! FILE "RECEPTORS"    #### '
-  write(*,*) ' #### CANNOT BE OPENED IN THE DIRECTORY       #### '
+1000 write(*,*) ' #### FLEXPART MODEL ERROR! FILE "RECEPTORS.namelist"    #### '
+  write(*,*) ' #### CANNOT BE OPENED/CREATED IN THE DIRECTORY       #### '
   write(*,'(a)') path(2)(1:length(2))
   stop