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

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)
@@ -340 +342 @@
   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 +358 @@
   !      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
@@ -688 +684 @@
 
   !********************
-  ! Verbosity, testing flags
+  ! Verbosity, testing flags, namelist I/O
   !********************   
   integer :: verbosity=0
   integer :: info_flag=0
-  INTEGER :: count_clock, count_clock0,  count_rate, count_max
+  integer :: count_clock, count_clock0,  count_rate, count_max
+  real    :: tins
+  logical :: nmlout=.true.