Changeset 10 for branches/flexpart91_hasod/src_parallel/com_mod.f90

Timestamp:

Aug 15, 2013, 3:23:48 PM (11 years ago)

Author:

hasod

Message:

ADD: namelist input implemented for all common input files

File:

• branches/flexpart91_hasod/src_parallel/com_mod.f90 (modified) (6 diffs)

branches/flexpart91_hasod/src_parallel/com_mod.f90

@@ -108 +108 @@
   ! lagespectra  1 if age spectra calculation switched on, 2 if not
 
-  logical :: lncdfout
-  !  switch for netcdf grid output, set to true if IOUT .gt. 10 in COMMAND (file/namelist)
+  integer :: lnetcdfout
+  ! lnetcdfout   1 for netcdf grid output, 0 if not. Set in COMMAND (namelist input)
 
   integer :: nageclass,lage(maxageclass)
@@ -120 +120 @@
 
   ! gdomainfill             .T., if domain-filling is global, .F. if not
-
 
 
@@ -138 +137 @@
   !integer*2 kindz(maxpoint)
   integer :: specnum(maxspec)
-  !real xmass(maxpoint,maxspec)
   real :: decay(maxspec)
   real :: weta(maxspec),wetb(maxspec)
@@ -242 +240 @@
 
   integer :: numbwf,wftime(maxwf),lwindinterv
-  character(len=255) :: wfname(maxwf),wfspec(maxwf)
+  character(len=255) :: wfname(maxwf)
 
   ! lwindinterv [s]         Interval between wind fields currently in memory
@@ -248 +246 @@
   ! wftime(maxwf) [s]       times relative to beginning time of wind fields
   ! wfname(maxwf)           file names of wind fields
-  ! wfspec(maxwf)           specifications of wind field file, e.g. if on hard
-  !                    disc or on tape
 
   integer :: memtime(2),memind(2)
@@ -412 +408 @@
 
   character(len=255) :: wfnamen(maxnests,maxwf)
-  character(len=18) :: wfspecn(maxnests,maxwf)
 
   ! wfnamen      nested wind field names
-  ! wfspecn      specifications of wind field file, e.g. if on hard
-  !         disc or on tape