Changeset 7d02c2f in flexpart.git


Ignore:
Timestamp:
Mar 1, 2018, 8:42:11 AM (15 months ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
dev, release-10, univie
Children:
91ce5e7
Parents:
01e6052
Message:

Added BW scavenging for nested domains

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/concoutput_nest.f90

    rdb712a8 r7d02c2f  
    199199
    200200  write(anspec,'(i3.3)') ks
    201   if ((iout.eq.1).or.(iout.eq.3).or.(iout.eq.5)) then
    202     if (ldirect.eq.1) then
    203       open(unitoutgrid,file=path(2)(1:length(2))//'grid_conc_nest_' &
     201 
     202  if (DRYBKDEP.or.WETBKDEP) then !scavdep output
     203      if (DRYBKDEP) &
     204      open(unitoutgrid,file=path(2)(1:length(2))//'grid_drydep_nest_'//adate// &
     205           atime//'_'//anspec,form='unformatted')
     206      if (WETBKDEP) &
     207      open(unitoutgrid,file=path(2)(1:length(2))//'grid_wetdep_nest_'//adate// &
     208           atime//'_'//anspec,form='unformatted')
     209      write(unitoutgrid) itime
     210  else
     211     if ((iout.eq.1).or.(iout.eq.3).or.(iout.eq.5)) then
     212       if (ldirect.eq.1) then
     213         open(unitoutgrid,file=path(2)(1:length(2))//'grid_conc_nest_' &
    204214           //adate// &
    205215           atime//'_'//anspec,form='unformatted')
    206     else
    207       open(unitoutgrid,file=path(2)(1:length(2))//'grid_time_nest_' &
     216       else
     217         open(unitoutgrid,file=path(2)(1:length(2))//'grid_time_nest_' &
    208218           //adate// &
    209219           atime//'_'//anspec,form='unformatted')
    210     endif
    211      write(unitoutgrid) itime
    212    endif
     220       endif
     221       write(unitoutgrid) itime
     222     endif
     223  endif
    213224
    214225  if ((iout.eq.2).or.(iout.eq.3)) then      ! mixing ratio
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG