Changeset e92a713 in flexpart.git

Timestamp:

Mar 1, 2015, 3:44:43 PM (9 years ago)

Author:

Ignacio Pisso <Ignacio.Pisso@…>

Branches:

master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, bugfixes+enhancements, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, release-10, release-10.4.1, scaling-bug, univie

Children:

43c8684

Parents:

ec9d8da

Message:

modify com_mod.f90: tiem flag, debug flag and increase path length to 256

File:

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

src/com_mod.f90

@@ -23 +23 @@
   !****************************************************************
 
-  character :: path(numpath+2*maxnests)*120
+  character :: path(numpath+2*maxnests)*256
   integer :: length(numpath+2*maxnests)
   character(len=256) :: pathfile, flexversion, arg1, arg2
@@ -686 +686 @@
   integer :: verbosity=0
   integer :: info_flag=0
+  integer :: time_flag=0
+  integer :: debug_flag=0
   integer :: count_clock, count_clock0,  count_rate, count_max
   logical :: nmlout=.true.