[Dart-dev] [3904] DART/trunk/common/types_mod.f90: added a named parm for the 32-char limit that most compilers

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090603/1a579fa7/attachment.html 
-------------- next part --------------
Modified: DART/trunk/common/types_mod.f90
===================================================================
--- DART/trunk/common/types_mod.f90	2009-06-03 14:37:10 UTC (rev 3903)
+++ DART/trunk/common/types_mod.f90	2009-06-03 15:38:45 UTC (rev 3904)
@@ -21,6 +21,7 @@
 public :: t_kelvin, es_alpha, es_beta, es_gamma, gas_constant_v, gas_constant
 public :: L_over_Rv, ps0, earth_radius, gravity
 public :: metadatalength
+public :: obstypelength
 
 ! version controlled file description for error handling, do not edit
 character(len=128), parameter :: &
@@ -35,6 +36,7 @@
 !----------------------------------------------------------------------------
 
 integer, parameter :: metadatalength = 64 ! 75 is max w/out wrapping in ncdump
+integer, parameter :: obstypelength  = 32 ! set by compiler/param limits
 
 !----------------------------------------------------------------------------
 ! Attributes for variable kinds -- no need to rely on -r8 switch in compiler