Changeset 92a74b2 in flexpart.git for src/get_vdep_prob.f90
- Timestamp:
- Nov 21, 2016, 10:05:39 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 3d6060e
- Parents:
- 7062fab
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/get_vdep_prob.f90
r7062fab r92a74b2 20 20 !********************************************************************** 21 21 22 subroutine advance_rec(itime,xt,yt,zt,prob)22 subroutine get_vdep_prob(itime,xt,yt,zt,prob) 23 23 ! i i i i o 24 24 !***************************************************************************** 25 25 ! * 26 ! Calculation of turbulent particle trajectories utilizing a * 27 ! zero-acceleration scheme, which is corrected by a numerically more * 28 ! accurate Petterssen scheme whenever possible. * 26 ! Calculation of the probability for dyr deposition * 29 27 ! * 30 ! Particle positions are read in, incremented, and returned to the calling * 31 ! program. * 32 ! * 33 ! In different regions of the atmosphere (PBL vs. free troposphere), * 34 ! different parameters are needed for advection, parameterizing turbulent * 35 ! velocities, etc. For efficiency, different interpolation routines have * 36 ! been written for these different cases, with the disadvantage that there * 37 ! exist several routines doing almost the same. They all share the * 38 ! included file 'interpol_mod'. The following * 39 ! interpolation routines are used: * 40 ! * 41 ! interpol_all(_nests) interpolates everything (called inside the PBL) * 42 ! interpol_misslev(_nests) if a particle moves vertically in the PBL, * 43 ! additional parameters are interpolated if it * 44 ! crosses a model level * 45 ! interpol_wind(_nests) interpolates the wind and determines the * 46 ! standard deviation of the wind (called outside * 47 ! PBL) also interpolates potential vorticity * 48 ! interpol_wind_short(_nests) only interpolates the wind (needed for the * 49 ! Petterssen scheme) * 50 ! interpol_vdep(_nests) interpolates deposition velocities * 51 ! * 52 ! * 53 ! Author: A. Stohl * 54 ! * 55 ! 16 December 1997 * 56 ! * 57 ! Changes: * 58 ! * 59 ! 8 April 2000: Deep convection parameterization * 60 ! * 61 ! May 2002: Petterssen scheme introduced * 28 ! Particle positions are read in - prob returned * 62 29 ! * 63 30 !***************************************************************************** … … 175 142 176 143 177 end subroutine advance_rec144 end subroutine get_vdep_prob 178 145
Note: See TracChangeset
for help on using the changeset viewer.