<p><b>duda</b> 2012-03-20 09:59:44 -0600 (Tue, 20 Mar 2012)</p><p>BRANCH COMMIT<br>
<br>
Remove some print statements that were used for debugging/testing in the attribute list module.<br>
<br>
<br>
M src/framework/mpas_attlist.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/io/src/framework/mpas_attlist.F
===================================================================
--- branches/omp_blocks/io/src/framework/mpas_attlist.F 2012-03-20 15:56:51 UTC (rev 1680)
+++ branches/omp_blocks/io/src/framework/mpas_attlist.F 2012-03-20 15:59:44 UTC (rev 1681)
@@ -58,7 +58,6 @@
if (.not. associated(attList)) then
allocate(attList)
-write(0,*) 'Adding at the head of the list'
cursor => attList
else
cursor => attList
@@ -66,7 +65,6 @@
cursor => cursor % next
end do
allocate(cursor % next)
-write(0,*) 'Adding at the end of the list'
cursor => cursor % next
end if
@@ -92,7 +90,6 @@
if (.not. associated(attList)) then
allocate(attList)
-write(0,*) 'Adding at the head of the list'
cursor => attList
else
cursor => attList
@@ -100,16 +97,13 @@
cursor => cursor % next
end do
allocate(cursor % next)
-write(0,*) 'Adding at the end of the list'
cursor => cursor % next
end if
-!!!
cursor % attType = ATT_INTA
allocate(cursor % attValueIntA(size(attValue)))
write(cursor % attName,'(a)') trim(attName)
cursor % attValueIntA(:) = attValue(:)
-!!!
end subroutine mpas_add_att_int1d
@@ -129,7 +123,6 @@
if (.not. associated(attList)) then
allocate(attList)
-write(0,*) 'Adding at the head of the list'
cursor => attList
else
cursor => attList
@@ -137,7 +130,6 @@
cursor => cursor % next
end do
allocate(cursor % next)
-write(0,*) 'Adding at the end of the list'
cursor => cursor % next
end if
@@ -163,7 +155,6 @@
if (.not. associated(attList)) then
allocate(attList)
-write(0,*) 'Adding at the head of the list'
cursor => attList
else
cursor => attList
@@ -171,16 +162,13 @@
cursor => cursor % next
end do
allocate(cursor % next)
-write(0,*) 'Adding at the end of the list'
cursor => cursor % next
end if
-!!!
cursor % attType = ATT_REALA
allocate(cursor % attValueRealA(size(attValue)))
write(cursor % attName,'(a)') trim(attName)
cursor % attValueRealA(:) = attValue(:)
-!!!
end subroutine mpas_add_att_real1d
@@ -200,7 +188,6 @@
if (.not. associated(attList)) then
allocate(attList)
-write(0,*) 'Adding at the head of the list'
cursor => attList
else
cursor => attList
@@ -208,15 +195,12 @@
cursor => cursor % next
end do
allocate(cursor % next)
-write(0,*) 'Adding at the end of the list'
cursor => cursor % next
end if
-!!!
cursor % attType = ATT_TEXT
write(cursor % attName,'(a)') trim(attName)
write(cursor % attValueText,'(a)') trim(attValue)
-!!!
end subroutine mpas_add_att_text
@@ -235,22 +219,17 @@
if (present(ierr)) ierr = 0
cursor => attList
-write(0,*) 'Starting at the head of the list...'
do while (associated(cursor))
-write(0,*) 'Comparing '//trim(attName)//' and '//trim(cursor % attName)
if (trim(attName) == trim(cursor % attName)) then
if (cursor % attType /= ATT_INT) then
-write(0,*) 'Wrong type for attribute'
if (present(ierr)) ierr = 1 ! Wrong type
else
attValue = cursor % attValueInt
-write(0,*) 'Assigning output value ', cursor % attValueInt
end if
return
end if
cursor => cursor % next
end do
-write(0,*) 'Finished searching unsuccessfully'
if (present(ierr)) ierr = 1 ! Not found
@@ -271,23 +250,18 @@
if (present(ierr)) ierr = 0
cursor => attList
-write(0,*) 'Starting at the head of the list...'
do while (associated(cursor))
-write(0,*) 'Comparing '//trim(attName)//' and '//trim(cursor % attName)
if (trim(attName) == trim(cursor % attName)) then
if (cursor % attType /= ATT_INTA) then
-write(0,*) 'Wrong type for attribute'
if (present(ierr)) ierr = 1 ! Wrong type
else
allocate(attValue(size(cursor % attValueIntA)))
attValue(:) = cursor % attValueIntA(:)
-write(0,*) 'Assigning output value ', cursor % attValueIntA
end if
return
end if
cursor => cursor % next
end do
-write(0,*) 'Finished searching unsuccessfully'
if (present(ierr)) ierr = 1 ! Not found
@@ -308,22 +282,17 @@
if (present(ierr)) ierr = 0
cursor => attList
-write(0,*) 'Starting at the head of the list...'
do while (associated(cursor))
-write(0,*) 'Comparing '//trim(attName)//' and '//trim(cursor % attName)
if (trim(attName) == trim(cursor % attName)) then
if (cursor % attType /= ATT_REAL) then
-write(0,*) 'Wrong type for attribute'
if (present(ierr)) ierr = 1 ! Wrong type
else
attValue = cursor % attValueReal
-write(0,*) 'Assigning output value ', cursor % attValueReal
end if
return
end if
cursor => cursor % next
end do
-write(0,*) 'Finished searching unsuccessfully'
if (present(ierr)) ierr = 1 ! Not found
@@ -344,23 +313,18 @@
if (present(ierr)) ierr = 0
cursor => attList
-write(0,*) 'Starting at the head of the list...'
do while (associated(cursor))
-write(0,*) 'Comparing '//trim(attName)//' and '//trim(cursor % attName)
if (trim(attName) == trim(cursor % attName)) then
if (cursor % attType /= ATT_REALA) then
-write(0,*) 'Wrong type for attribute'
if (present(ierr)) ierr = 1 ! Wrong type
else
allocate(attValue(size(cursor % attValueRealA)))
attValue(:) = cursor % attValueRealA(:)
-write(0,*) 'Assigning output value ', cursor % attValueRealA
end if
return
end if
cursor => cursor % next
end do
-write(0,*) 'Finished searching unsuccessfully'
if (present(ierr)) ierr = 1 ! Not found
@@ -381,22 +345,17 @@
if (present(ierr)) ierr = 0
cursor => attList
-write(0,*) 'Starting at the head of the list...'
do while (associated(cursor))
-write(0,*) 'Comparing '//trim(attName)//' and '//trim(cursor % attName)
if (trim(attName) == trim(cursor % attName)) then
if (cursor % attType /= ATT_TEXT) then
-write(0,*) 'Wrong type for attribute'
if (present(ierr)) ierr = 1 ! Wrong type
else
write(attValue,'(a)') trim(cursor % attValueText)
-write(0,*) 'Assigning output value ', trim(cursor % attValueText)
end if
return
end if
cursor => cursor % next
end do
-write(0,*) 'Finished searching unsuccessfully'
if (present(ierr)) ierr = 1 ! Not found
@@ -426,7 +385,6 @@
deallocate(cursor % attValueIntA)
end if
deallocate(cursor)
-write(0,*) 'Found item at head and deleting'
return
end if
@@ -443,7 +401,6 @@
end if
deallocate(cursor)
-write(0,*) 'Found item in middle and deleting'
return
end if
@@ -467,8 +424,6 @@
if (present(ierr)) ierr = 0
-write(0,*) 'Going to deallocate att list'
-
cursor => attList
do while (associated(cursor))
attList => attList % next
@@ -477,13 +432,10 @@
else if (cursor % attType == ATT_INTA) then
deallocate(cursor % attValueIntA)
end if
-write(0,*) 'Deallocating ', cursor % attValueInt
deallocate(cursor)
cursor => attList
end do
-write(0,*) 'Done deallocating att list'
-
end subroutine mpas_deallocate_attlist
end module mpas_attlist
</font>
</pre>