Commit 7c041f72 authored by dingwell's avatar dingwell
Browse files

Updated messages

parent cbea5bb6
......@@ -684,7 +684,7 @@ module netcdf_output_mod
return
10 format('write_ncheader: Setting up ',A)
10 format('nc_create_main_outfile: Setting up ',A)
end subroutine nc_create_main_outfile
subroutine nc_create_header_outfile(itime,nesting_level)
......@@ -784,7 +784,7 @@ module netcdf_output_mod
! call nf_set_log_level(3)
if (option_verbose.ge.1) write(*,*) &
'write_ncheader: creating file: ',path(1)(1:length(1))//ncname
'nc_create_header_outfile: creating file: ',path(1)(1:length(1))//ncname
! call nf_set_chunk_cache(32000000)
! ncret = nf_create(path(1)(1:length(1))//ncname, nf_clobber,ncid)
ncret = NF90_create(path(1)(1:length(1))//ncname, cmode=NF90_NETCDF4,ncid=ncid)
......@@ -1417,14 +1417,14 @@ module netcdf_output_mod
! SAVE CREATED NETCDF TO FILE
!****************************
if (option_verbose.ge.1) write(*,*) 'write_ncheader: writing to disk'
if (option_verbose.ge.1) write(*,*) 'nc_create_header: writing to disk'
!ncret = nf_sync(ncid)
ncret = NF90_SYNC(ncid)
call check_ncerror(ncret)
return
10 format('write_ncheader: Setting up ',A)
10 format('nc_create_header: Setting up ',A)
!ncret=nf_close(ncid)
ncret=NF90_CLOSE(ncid)
......@@ -1456,7 +1456,6 @@ end subroutine nc_create_header_outfile
! 2015-06-04: A. Dingwell: Updated subroutine to use NetCDF F90 module. *
! 2015-06-05: A. Dingwell: moved to module *
!*****************************************************************************
implicit none
real,intent(in) :: outnum ! Number of samples for each concentration calculation
integer,intent(in) :: itime ! Current simulation time [s]
integer,intent(in) :: ks,kp,nage ! species, maxpointspec_act and nageclass indices resp.
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment