Changeset d1a8707 in flexpart.git


Ignore:
Timestamp:
May 4, 2017, 9:29:58 AM (23 months ago)
Author:
Sabine <sabine.eckhardt@…>
Branches:
dev, release-10, univie
Children:
93786a1
Parents:
5888298
Message:

When running in wet deposition mode a textfile with precipitation data is written out

Location:
src
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • src/getfields.f90

    r8a65cb0 rd1a8707  
    13813840  indmin=indj
    139139
     140   if (WETBKDEP) then
     141        call writeprecip(itime,memind(1))
     142   endif
     143
    140144  else
    141145
     
    16917360  indmin=indj
    170174
     175   if (WETBKDEP) then
     176        call writeprecip(itime,memind(1))
     177   endif
     178
    171179  endif
    172180
  • src/makefile

    r92a74b2 rd1a8707  
    144144advance.o               initialize.o            \
    145145writeheader.o           writeheader_txt.o       \
     146writeprecip.o \
    146147writeheader_surf.o      assignland.o\
    147148part0.o                 gethourlyOH.o\
     
    432433wetdepokernel_nest.o: com_mod.o par_mod.o unc_mod.o
    433434writeheader.o: com_mod.o outg_mod.o par_mod.o point_mod.o
     435writeprecip.o: com_mod.o par_mod.o point_mod.o
    434436writeheader_nest.o: com_mod.o outg_mod.o par_mod.o point_mod.o
    435437writeheader_nest_surf.o: com_mod.o outg_mod.o par_mod.o point_mod.o
  • src/par_mod.f90

    rdf4a68e rd1a8707  
    252252  integer,parameter :: unitlsm=1, unitsurfdata=1, unitland=1, unitwesely=1
    253253  integer,parameter :: unitOH=1
    254   integer,parameter :: unitdates=94, unitheader=90,unitheader_txt=100, unitshortpart=95
     254  integer,parameter :: unitdates=94, unitheader=90,unitheader_txt=100, unitshortpart=95, unitprecip=101
    255255  integer,parameter :: unitboundcond=89
    256256  integer,parameter :: unittmp=101
  • src/timemanager.f90

    r5f53d0e rd1a8707  
    148148 
    149149  if (.not.usekernel) write(*,*) 'Not using the kernel'
     150  if (turboff) write(*,*) 'Turbulence switched off'
     151
    150152  write(*,46) float(itime)/3600,itime,numpart
    151153
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG