Changeset d1a8707 in flexpart.git

Timestamp:

May 4, 2017, 9:29:58 AM (7 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

93786a1

Parents:

5888298

Message:

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

Location:

src

Files:

• getfields.f90 (modified) (2 diffs)
• makefile (modified) (2 diffs)
• par_mod.f90 (modified) (1 diff)
• timemanager.f90 (modified) (1 diff)

src/getfields.f90

@@ -138 +138 @@
 40  indmin=indj
 
+   if (WETBKDEP) then
+        call writeprecip(itime,memind(1))
+   endif
+
   else
 
@@ -169 +173 @@
 60  indmin=indj
 
+   if (WETBKDEP) then
+        call writeprecip(itime,memind(1))
+   endif
+
   endif
 

src/makefile

@@ -144 +144 @@
 advance.o               initialize.o            \
 writeheader.o           writeheader_txt.o       \
+writeprecip.o \
 writeheader_surf.o      assignland.o\
 part0.o                 gethourlyOH.o\
@@ -432 +433 @@
 wetdepokernel_nest.o: com_mod.o par_mod.o unc_mod.o
 writeheader.o: com_mod.o outg_mod.o par_mod.o point_mod.o
+writeprecip.o: com_mod.o par_mod.o point_mod.o
 writeheader_nest.o: com_mod.o outg_mod.o par_mod.o point_mod.o
 writeheader_nest_surf.o: com_mod.o outg_mod.o par_mod.o point_mod.o

src/par_mod.f90

@@ -252 +252 @@
   integer,parameter :: unitlsm=1, unitsurfdata=1, unitland=1, unitwesely=1
   integer,parameter :: unitOH=1
-  integer,parameter :: unitdates=94, unitheader=90,unitheader_txt=100, unitshortpart=95
+  integer,parameter :: unitdates=94, unitheader=90,unitheader_txt=100, unitshortpart=95, unitprecip=101
   integer,parameter :: unitboundcond=89
   integer,parameter :: unittmp=101

src/timemanager.f90

@@ -148 +148 @@
   
   if (.not.usekernel) write(*,*) 'Not using the kernel'
+  if (turboff) write(*,*) 'Turbulence switched off'
+
   write(*,46) float(itime)/3600,itime,numpart