Changeset cbad0f1 in flexpart.git for src/netcdf_output_mod.f90
- Timestamp:
- Oct 16, 2015, 11:27:32 AM (9 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 43225d1
- Parents:
- 57c5b2e
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/netcdf_output_mod.f90
r5f9d14a rcbad0f1 49 49 area,arean,volumen, orooutn 50 50 use par_mod, only: dp, maxspec, maxreceptor, nclassunc,& 51 unitoutrecept,unitoutreceptppt, nxmax 51 unitoutrecept,unitoutreceptppt, nxmax,unittmp 52 52 use com_mod, only: path,length,ldirect,ibdate,ibtime,iedate,ietime, & 53 53 loutstep,loutaver,loutsample,outlon0,outlat0,& … … 261 261 262 262 integer :: i,ix,jy 263 integer :: test_unit 264 265 266 ! Check if output directory exists (the netcdf library will 267 ! otherwise give an error which can look confusing). 268 ! ********************************************************************* 269 ! open(newunit=test_unit,file=trim(path(2)(1:length(2)))//'test_dir.txt',status='replace',& 270 ! &err=100) 271 ! close (test_unit, status='delete') 272 open(unit=unittmp,file=trim(path(2)(1:length(2)))//'test_dir.txt',status='replace',& 273 &err=100) 274 close (unittmp, status='delete') 275 goto 101 276 100 write(*,FMT='(80("#"))') 277 write(*,*) 'ERROR: output directory ', trim(path(2)(1:length(2))), ' does not exist& 278 & (or failed to write there).' 279 write(*,*) 'EXITING' 280 write(*,FMT='(80("#"))') 281 stop 282 101 continue 263 283 264 284 !************************
Note: See TracChangeset
for help on using the changeset viewer.