Changeset ae43937 in flexpart.git
- Timestamp:
- Mar 22, 2018, 12:31:08 PM (6 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- f4a4339
- Parents:
- 91ce5e7
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/netcdf_output_mod.f90
r0ecc1fe rae43937 76 76 ioutputforeachrelease, iflux, mdomainfill, mquasilag, & 77 77 nested_output, ipout, surf_only, linit_cond, & 78 flexversion,mpi_mode 78 flexversion,mpi_mode,DRYBKDEP,WETBKDEP 79 79 80 80 use mean_mod … … 270 270 character(len=255) :: fname 271 271 character(len=15) :: units 272 character(len= 10) :: fprefix272 character(len=20) :: 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_' 314 316 315 317 if (lnest) then 316 fname = path(2)(1:length(2))// fprefix//adate//atime//'_nest.nc'318 fname = path(2)(1:length(2))//trim(fprefix)//adate//atime//'_nest.nc' 317 319 ncfnamen = fname 318 320 nnx = numxgridn 319 321 nny = numygridn 320 322 else 321 fname = path(2)(1:length(2))// fprefix//adate//atime//'.nc'323 fname = path(2)(1:length(2))//trim(fprefix)//adate//atime//'.nc' 322 324 ncfname = fname 323 325 nnx = numxgrid
Note: See TracChangeset
for help on using the changeset viewer.