Commit 165cd9bc authored by dingwell's avatar dingwell
Browse files

Changed output routine according to JB's version

parent b0822bb3
......@@ -301,7 +301,8 @@
open(unitoutgrid,file=path(1)(1:length(1))//'grid_time_'//adate// &
atime//'_'//anspec,form='formatted')
endif
write(unitoutgrid) itime
if (iouttype.eq.0) write(unitoutgrid) itime
if (iouttype.eq.1) write(unitoutgrid,*) itime
endif
if ((iout.eq.2).or.(iout.eq.3)) then ! mixing ratio
......@@ -312,7 +313,8 @@
open(unitoutgridppt,file=path(1)(1:length(1))//'grid_pptv_'//adate// &
atime//'_'//anspec,form='formatted')
write(unitoutgridppt) itime
if (iouttype.eq.0) write(unitoutgridppt) itime
if (iouttype.eq.1) write(unitoutgridppt,*) itime
endif
endif ! iouttype.ne.2
......
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