Changes from branches/FLEXPART_9.1.3/src/com_mod.f90 at r13 to trunk/src/com_mod.f90 at r4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/com_mod.f90
- Property svn:executable set to *
r13 r4 7 7 ! June 1996 * 8 8 ! * 9 ! Last update: 15 August 2013 IP*9 ! Last update: 9 August 2000 * 10 10 ! * 11 11 !******************************************************************************* … … 139 139 real :: decay(maxspec) 140 140 real :: weta(maxspec),wetb(maxspec) 141 ! NIK: 31.01.2013- parameters for in-cloud scavening142 real :: weta_in(maxspec), wetb_in(maxspec), wetc_in(maxspec), wetd_in(maxspec)143 141 real :: reldiff(maxspec),henry(maxspec),f0(maxspec) 144 142 real :: density(maxspec),dquer(maxspec),dsigma(maxspec) … … 174 172 175 173 ! WET DEPOSITION 176 ! weta, wetb parameters for determining below-cloud wet scavenging coefficients 177 ! weta_in, wetb_in parameters for determining in-cloud wet scavenging coefficients 178 ! wetc_in, wetd_in parameters for determining in-cloud wet scavenging coefficients 174 ! weta, wetb parameters for determining wet scavenging coefficients 179 175 180 176 ! GAS DEPOSITION … … 335 331 real :: qvh(0:nxmax-1,0:nymax-1,nuvzmax,2) 336 332 real :: pplev(0:nxmax-1,0:nymax-1,nuvzmax,2) 337 !scavenging NIK, PS338 333 integer(kind=1) :: clouds(0:nxmax-1,0:nymax-1,nzmax,2) 339 334 integer :: cloudsh(0:nxmax-1,0:nymax-1,2) 340 integer icloudbot(0:nxmax-1,0:nymax-1,2)341 integer icloudthck(0:nxmax-1,0:nymax-1,2)342 343 335 344 336 ! uu,vv,ww [m/2] wind components in x,y and z direction … … 354 346 ! rainout conv/lsp dominated 2/3 355 347 ! washout conv/lsp dominated 4/5 356 ! PS 2013357 !c icloudbot (m) cloud bottom height358 !c icloudthck (m) cloud thickness359 360 348 ! pplev for the GFS version 361 349
Note: See TracChangeset
for help on using the changeset viewer.