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


Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/netcdf_output_mod.f90

    rae43937 r0ecc1fe  
    7676                       ioutputforeachrelease, iflux, mdomainfill, mquasilag, &
    7777                       nested_output, ipout, surf_only, linit_cond, &
    78                        flexversion,mpi_mode,DRYBKDEP,WETBKDEP
     78                       flexversion,mpi_mode
    7979
    8080  use mean_mod
     
    270270  character(len=255)          :: fname
    271271  character(len=15)           :: units
    272   character(len=20)           :: fprefix
     272  character(len=10)           :: 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_'
    316314
    317315  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'
    319317     ncfnamen = fname
    320318     nnx = numxgridn
    321319     nny = numygridn
    322320  else
    323      fname = path(2)(1:length(2))//trim(fprefix)//adate//atime//'.nc'
     321     fname = path(2)(1:length(2))//fprefix//adate//atime//'.nc'
    324322     ncfname = fname
    325323     nnx = numxgrid
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG