Changeset 4fbe7a5 in flexpart.git for src/com_mod.f90

Timestamp:

May 23, 2014, 11:48:41 AM (10 years ago)

Author:

Ignacio Pisso <ip@…>

Branches:

master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, NetCDF, bugfixes+enhancements, deposition, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, inputlist, laptop, release-10, release-10.4.1, scaling-bug, svn-petra, svn-trunk, univie

Children:

0aded10

Parents:

f13406c

Message:

version 9.2 beta. Changes from HH, AST, MC, NIK, IP. Changes in vert transform. New SPECIES input includes scavenging coefficients

git-svn-id: ​http://flexpart.flexpart.eu:8088/svn/FlexPart90/trunk@24 ef8cc7e1-21b7-489e-abab-c1baa636049d

File:

• src/com_mod.f90 (modified) (2 diffs)

src/com_mod.f90

@@ -340 +340 @@
   real :: qvh(0:nxmax-1,0:nymax-1,nuvzmax,2)
   real :: pplev(0:nxmax-1,0:nymax-1,nuvzmax,2)
-  !scavenging NIK, PS
   integer(kind=1) :: clouds(0:nxmax-1,0:nymax-1,nzmax,2)
   integer :: cloudsh(0:nxmax-1,0:nymax-1,2)
-      integer icloudbot(0:nxmax-1,0:nymax-1,2)
-      integer icloudthck(0:nxmax-1,0:nymax-1,2)
 
 
@@ -359 +356 @@
   !      rainout  conv/lsp dominated  2/3
   !      washout  conv/lsp dominated  4/5
-! PS 2013
-!c icloudbot (m)        cloud bottom height
-!c icloudthck (m)       cloud thickness     
 
   ! pplev for the GFS version