Commit 7d02c2f5 authored by Espen Sollum's avatar Espen Sollum
Browse files

Added BW scavenging for nested domains

parent 01e60525
...@@ -198,18 +198,29 @@ subroutine concoutput_nest(itime,outnum) ...@@ -198,18 +198,29 @@ subroutine concoutput_nest(itime,outnum)
do ks=1,nspec do ks=1,nspec
write(anspec,'(i3.3)') ks write(anspec,'(i3.3)') ks
if ((iout.eq.1).or.(iout.eq.3).or.(iout.eq.5)) then
if (ldirect.eq.1) then if (DRYBKDEP.or.WETBKDEP) then !scavdep output
open(unitoutgrid,file=path(2)(1:length(2))//'grid_conc_nest_' & if (DRYBKDEP) &
open(unitoutgrid,file=path(2)(1:length(2))//'grid_drydep_nest_'//adate// &
atime//'_'//anspec,form='unformatted')
if (WETBKDEP) &
open(unitoutgrid,file=path(2)(1:length(2))//'grid_wetdep_nest_'//adate// &
atime//'_'//anspec,form='unformatted')
write(unitoutgrid) itime
else
if ((iout.eq.1).or.(iout.eq.3).or.(iout.eq.5)) then
if (ldirect.eq.1) then
open(unitoutgrid,file=path(2)(1:length(2))//'grid_conc_nest_' &
//adate// & //adate// &
atime//'_'//anspec,form='unformatted') atime//'_'//anspec,form='unformatted')
else else
open(unitoutgrid,file=path(2)(1:length(2))//'grid_time_nest_' & open(unitoutgrid,file=path(2)(1:length(2))//'grid_time_nest_' &
//adate// & //adate// &
atime//'_'//anspec,form='unformatted') atime//'_'//anspec,form='unformatted')
endif endif
write(unitoutgrid) itime write(unitoutgrid) itime
endif endif
endif
if ((iout.eq.2).or.(iout.eq.3)) then ! mixing ratio if ((iout.eq.2).or.(iout.eq.3)) then ! mixing ratio
open(unitoutgridppt,file=path(2)(1:length(2))//'grid_pptv_nest_' & open(unitoutgridppt,file=path(2)(1:length(2))//'grid_pptv_nest_' &
......
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