Changes in src/concoutput_nest.f90 [7d02c2f:db712a8] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput_nest.f90
r7d02c2f rdb712a8 199 199 200 200 write(anspec,'(i3.3)') ks 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_' & 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_' & 214 204 //adate// & 215 205 atime//'_'//anspec,form='unformatted') 216 217 206 else 207 open(unitoutgrid,file=path(2)(1:length(2))//'grid_time_nest_' & 218 208 //adate// & 219 209 atime//'_'//anspec,form='unformatted') 220 endif 221 write(unitoutgrid) itime 222 endif 223 endif 210 endif 211 write(unitoutgrid) itime 212 endif 224 213 225 214 if ((iout.eq.2).or.(iout.eq.3)) then ! mixing ratio
Note: See TracChangeset
for help on using the changeset viewer.