Commit 3c104703 authored by dingwell's avatar dingwell
Browse files

Removed dependency of F77 netcdf library in timemanager (replaced with F90)

parent c6e2f689
......@@ -758,7 +758,7 @@
write(*,*) "timemanager: End of simulation reached, closing output file"
ncret=NF90_CLOSE(ncout)
call check_ncerror(ncret)
if (nested_output.eq.1) ncret=nf_close(ncoutn)
if (nested_output.eq.1) ncret=NF90_CLOSE(ncoutn)
endif
if (iflux.eq.1) then
......
......@@ -1017,7 +1017,7 @@
write(*,*) "timemanager_mpi: End of simulation reached, closing output file"
ncret=NF90_CLOSE(ncout)
call check_ncerror(ncret)
if (nested_output.eq.1) ncret=nf_close(ncoutn)
if (nested_output.eq.1) ncret=NF90_CLOSE(ncoutn)
endif
endif
if (iflux.eq.1) then
......
......@@ -749,7 +749,7 @@
write(*,*) "timemanager_serial: End of simulation reached, closing output file"
ncret=NF90_CLOSE(ncout)
call check_ncerror(ncret)
if (nested_output.eq.1) ncret=nf_close(ncoutn)
if (nested_output.eq.1) ncret=NF90_CLOSE(ncoutn)
endif
if (iflux.eq.1) then
......
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