TNO Intern

Commit f8eaa16d authored by Arjo Segers's avatar Arjo Segers
Browse files

Added debug templates.

parent bef61a3e

oper/src/cso_sat.F90

+6 −1
Original line number Diff line number Diff line
@@ -1412,7 +1412,7 @@ contains 
                              data0=tvalues, units=tunits )

      IF_NOT_OK_RETURN(status=1)



      ! convert time interval bounds to values:

      ! convert time interval bounds to values with similar units:

      if ( t1 < t2 ) then

        ! "forward" with t1<t2

        call CompressTime( t1, tunits, tv1, status )
@@ -1445,6 +1445,11 @@ contains 
          self%ntsel = self%ntsel + 1

          ! store pixel index:

          self%ipix__tsel(self%ntsel) = ipix

          !! testing ..

          !write (csol,'(a,":   selected pixel ",i0," time value: ",f16.6)') rname, ipix, tvalues(ipix); call csoPr

        else

          !! testing ..

          !write (csol,'(a,":   skipped  pixel ",i0," time value: ",f16.6)') rname, ipix, tvalues(ipix); call csoPr

        end if ! in interval

      end do  ! ipix