Changeset cbad0f1 in flexpart.git for src

Timestamp:

Oct 16, 2015, 11:27:32 AM (9 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

43225d1

Parents:

57c5b2e

Message:

NetCDF module now gives a more understandable error message if output directory is missing

File:

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

src/netcdf_output_mod.f90

@@ -49 +49 @@
                        area,arean,volumen, orooutn
   use par_mod,   only: dp, maxspec, maxreceptor, nclassunc,&
-                       unitoutrecept,unitoutreceptppt, nxmax
+                       unitoutrecept,unitoutreceptppt, nxmax,unittmp
   use com_mod,   only: path,length,ldirect,ibdate,ibtime,iedate,ietime, &
                        loutstep,loutaver,loutsample,outlon0,outlat0,&
@@ -261 +261 @@
 
   integer                     :: i,ix,jy
+  integer                     :: test_unit
+
+
+  ! Check if output directory exists (the netcdf library will
+  ! otherwise give an error which can look confusing). 
+  ! *********************************************************************
+  ! open(newunit=test_unit,file=trim(path(2)(1:length(2)))//'test_dir.txt',status='replace',&
+  !      &err=100)
+  !  close (test_unit, status='delete')
+  open(unit=unittmp,file=trim(path(2)(1:length(2)))//'test_dir.txt',status='replace',&
+       &err=100)
+  close (unittmp, status='delete')
+  goto 101
+100 write(*,FMT='(80("#"))') 
+  write(*,*) 'ERROR: output directory ', trim(path(2)(1:length(2))), ' does not exist&
+       & (or failed to write there).' 
+  write(*,*) 'EXITING' 
+  write(*,FMT='(80("#"))')
+  stop
+101 continue
 
   !************************