[Dart-dev] [3231] DART/branches/nancy_work/obs_sequence/obs_sequence_mod.f90: My test branch: make obs intent(inout) in the set_obs_def()

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080212/b86beee3/attachment.html
-------------- next part --------------
Modified: DART/branches/nancy_work/obs_sequence/obs_sequence_mod.f90
===================================================================
--- DART/branches/nancy_work/obs_sequence/obs_sequence_mod.f90	2008-02-12 23:05:28 UTC (rev 3230)
+++ DART/branches/nancy_work/obs_sequence/obs_sequence_mod.f90	2008-02-12 23:25:31 UTC (rev 3231)
@@ -326,7 +326,6 @@
 call init_obs(obs, 0, 0)
 
 do i = 1, num_obs
-!write(*,*) 'get_expected_obs: i, num_obs = ', i, num_obs
    call get_obs_from_key(seq, keys(i), obs)
    call get_obs_def(obs, obs_def)
    location = get_obs_def_location(obs_def)
@@ -1603,10 +1602,6 @@
     size(obs1%values) /= size(obs2%values) .or. size(obs1%qc) /= size(obs2%qc)) then
    if (associated(obs1%values)) deallocate(obs1%values)
    if (associated(obs1%qc)) deallocate(obs1%qc)
-   !write(*, *) 'copy_obs: assoc obs1 values, qc     = ', associated(obs1%values), associated(obs1%qc)
-   !write(*, *) 'copy_obs: size of obs1, obs2 values = ', size(obs1%values), size(obs2%values)
-   !write(*, *) 'copy_obs: size of obs1, obs2 qc     = ', size(obs1%qc), size(obs2%qc)
-   !write(*, *) 'copy_obs: allocating total bytes    = ', size(obs2%values) + size(obs2%qc)
    allocate(obs1%values(size(obs2%values)), obs1%qc(size(obs2%qc)))
 endif
 obs1%values = obs2%values
@@ -1615,8 +1610,6 @@
 obs1%next_time = obs2%next_time
 obs1%cov_group = obs2%cov_group
 
-!write(*, *) 'done with copy_obs'
-
 end subroutine copy_obs
 
 !-------------------------------------------------
@@ -1626,7 +1619,6 @@
 ! Free up allocated storage in an observation type
 type(obs_type), intent(inout) :: obs
 
-!write(*,*) 'destroy_obs: freeing space'
 if (associated(obs%values)) then
    deallocate(obs%values)
    nullify(obs%values)
@@ -1655,7 +1647,7 @@
 !-------------------------------------------------
 subroutine set_obs_def(obs, obs_def)
 
-type(obs_type), intent(out) :: obs
+type(obs_type), intent(inout) :: obs
 type(obs_def_type), intent(in) :: obs_def
 
 call copy_obs_def(obs%def, obs_def)