Changes in / [f4a4339:1e991c1] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/netcdf_output_mod.f90
rae43937 r0ecc1fe 76 76 ioutputforeachrelease, iflux, mdomainfill, mquasilag, & 77 77 nested_output, ipout, surf_only, linit_cond, & 78 flexversion,mpi_mode ,DRYBKDEP,WETBKDEP78 flexversion,mpi_mode 79 79 80 80 use mean_mod … … 270 270 character(len=255) :: fname 271 271 character(len=15) :: units 272 character(len= 20) :: fprefix272 character(len=10) :: fprefix 273 273 character(len=3) :: anspec 274 274 CHARACTER :: adate*8,atime*6,timeunit*32 … … 312 312 fprefix = 'grid_time_' 313 313 endif 314 if (DRYBKDEP) fprefix='grid_drydep_'315 if (WETBKDEP) fprefix='grid_wetdep_'316 314 317 315 if (lnest) then 318 fname = path(2)(1:length(2))// trim(fprefix)//adate//atime//'_nest.nc'316 fname = path(2)(1:length(2))//fprefix//adate//atime//'_nest.nc' 319 317 ncfnamen = fname 320 318 nnx = numxgridn 321 319 nny = numygridn 322 320 else 323 fname = path(2)(1:length(2))// trim(fprefix)//adate//atime//'.nc'321 fname = path(2)(1:length(2))//fprefix//adate//atime//'.nc' 324 322 ncfname = fname 325 323 nnx = numxgrid
Note: See TracChangeset
for help on using the changeset viewer.