Changeset 92a74b2 in flexpart.git for src/get_vdep_prob.f90


Ignore:
Timestamp:
Nov 21, 2016, 10:05:39 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:
3d6060e
Parents:
7062fab
Message:

get_vdep_prob instead of advance

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/get_vdep_prob.f90

    r7062fab r92a74b2  
    2020!**********************************************************************
    2121
    22 subroutine advance_rec(itime,xt,yt,zt,prob)
     22subroutine get_vdep_prob(itime,xt,yt,zt,prob)
    2323  !                    i     i  i  i  o
    2424  !*****************************************************************************
    2525  !                                                                            *
    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                         *
    2927  !                                                                            *
    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                            *
    6229  !                                                                            *
    6330  !*****************************************************************************
     
    175142
    176143
    177 end subroutine advance_rec
     144end subroutine get_vdep_prob
    178145
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG