Changes in / [1e991c1:f4a4339] in flexpart.git


Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/netcdf_output_mod.f90

    r0ecc1fe rae43937  
    7676                       ioutputforeachrelease, iflux, mdomainfill, mquasilag, &
    7777                       nested_output, ipout, surf_only, linit_cond, &
    78                        flexversion,mpi_mode
     78                       flexversion,mpi_mode,DRYBKDEP,WETBKDEP
    7979
    8080  use mean_mod
     
    270270  character(len=255)          :: fname
    271271  character(len=15)           :: units
    272   character(len=10)           :: fprefix
     272  character(len=20)           :: fprefix
    273273  character(len=3)            :: anspec
    274274  CHARACTER                   :: adate*8,atime*6,timeunit*32
     
    312312     fprefix = 'grid_time_'
    313313  endif
     314  if (DRYBKDEP) fprefix='grid_drydep_'
     315  if (WETBKDEP) fprefix='grid_wetdep_'
    314316
    315317  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'
    317319     ncfnamen = fname
    318320     nnx = numxgridn
    319321     nny = numygridn
    320322  else
    321      fname = path(2)(1:length(2))//fprefix//adate//atime//'.nc'
     323     fname = path(2)(1:length(2))//trim(fprefix)//adate//atime//'.nc'
    322324     ncfname = fname
    323325     nnx = numxgrid
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG