Changes in / [91ce5e7:1f55de1] in flexpart.git

File:

• src/concoutput_nest.f90 (modified) (1 diff)

src/concoutput_nest.f90

@@ -199 +199 @@
 
   write(anspec,'(i3.3)') ks
- 
-  if (DRYBKDEP.or.WETBKDEP) then !scavdep output
-      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_' &
+  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// &
            atime//'_'//anspec,form='unformatted')
-       else
-         open(unitoutgrid,file=path(2)(1:length(2))//'grid_time_nest_' &
+    else
+      open(unitoutgrid,file=path(2)(1:length(2))//'grid_time_nest_' &
            //adate// &
            atime//'_'//anspec,form='unformatted')
-       endif
-       write(unitoutgrid) itime
-     endif
-  endif
+    endif
+     write(unitoutgrid) itime
+   endif
 
   if ((iout.eq.2).or.(iout.eq.3)) then      ! mixing ratio