Changes in trunk/src/com_mod.f90 [30:20]

File:

• trunk/src/com_mod.f90 (modified) (4 diffs)

trunk/src/com_mod.f90

@@ -113 +113 @@
   ! lagespectra  1 if age spectra calculation switched on, 2 if not
 
-  integer :: lnetcdfout
-  ! lnetcdfout   1 for netcdf grid output, 0 if not. Set in COMMAND (namelist input)
 
   integer :: nageclass,lage(maxageclass)
@@ -342 +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)
 
 
@@ -358 +359 @@
   !      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
@@ -684 +688 @@
 
   !********************
-  ! Verbosity, testing flags, namelist I/O
+  ! Verbosity, testing flags
   !********************   
   integer :: verbosity=0
   integer :: info_flag=0
-  integer :: count_clock, count_clock0,  count_rate, count_max
-  real    :: tins
-  logical :: nmlout=.true.
+  INTEGER :: count_clock, count_clock0,  count_rate, count_max