[Dart-dev] DART/branches Revision: 12149

[dart at ucar.edu]

thoar at ucar.edu
2017-11-28 17:06:54 -0700 (Tue, 28 Nov 2017)
48
Fixing a bug identified by the intel compiler.




Modified: DART/branches/coamps/models/coamps_nest/instru_list_coamps.inc
===================================================================
--- DART/branches/coamps/models/coamps_nest/instru_list_coamps.inc	2017-11-28 23:17:35 UTC (rev 12148)
+++ DART/branches/coamps/models/coamps_nest/instru_list_coamps.inc	2017-11-29 00:06:54 UTC (rev 12149)
@@ -7,9 +7,9 @@
       integer, parameter :: mx_nm_instru=126
       integer :: nc(mx_nm_instru)
       integer :: nsat(mx_nm_instru)   !  set to 1 for satellite platforms
-      character(len=16) :: c_label(mx_nm_instru) ,c_rec(mx_nm_instru)
+      character(len=16) :: c_label(mx_nm_instru), c_rec(mx_nm_instru)
       integer :: ival(mx_nm_instru)
-      integer :: m
+      integer :: n
       integer, parameter :: INVALID=999
 
       data(nc(n),c_rec(n),  nsat(n),c_label(n),  ival(n),n=1,mx_nm_instru) &