Changeset 7d02c2f in flexpart.git
- Timestamp:
- Mar 1, 2018, 8:42:11 AM (6 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 91ce5e7
- Parents:
- 01e6052
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput_nest.f90
rdb712a8 r7d02c2f 199 199 200 200 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_' & 204 214 //adate// & 205 215 atime//'_'//anspec,form='unformatted') 206 else207 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_' & 208 218 //adate// & 209 219 atime//'_'//anspec,form='unformatted') 210 endif 211 write(unitoutgrid) itime 212 endif 220 endif 221 write(unitoutgrid) itime 222 endif 223 endif 213 224 214 225 if ((iout.eq.2).or.(iout.eq.3)) then ! mixing ratio
Note: See TracChangeset
for help on using the changeset viewer.