TNO Intern

Commit 0fa3f0da authored by Arjo Segers's avatar Arjo Segers
Browse files

Updated logging messages.

parent 53e46ce3

oper/src/cso_pixels.F90

+18 −3
Original line number Diff line number Diff line
@@ -32,6 +32,9 @@ 
! 2025-10, Arjo Segers

!   Support kernel convolution 'xa + A ( x - xa )'.

!

! 2026-07, Arjo Segers

!   Updated logging messages.

!

!###############################################################################

!

#define TRACEBACK write (csol,'("in ",a," (",a,", line",i5,")")') rname, __FILE__, __LINE__; call csoErr
@@ -5744,6 +5747,8 @@ contains 


    ! loop over data sets:

    do i = 1, self%n

      ! info ..

      write (csol,'(a,": put out `",a,"` ...")') rname, trim(self%values(i)%p%name); call csoPr

      ! selection?

      if ( associated(vars) ) then

        ! init flag:
@@ -5756,10 +5761,20 @@ contains 
          if ( found ) exit

        end do

        ! skip if not in list ..

        if ( .not. found ) cycle

        if ( .not. found ) then

          ! info ...

          write (csol,'(a,":   not in output selection ...")') rname; call csoPr

          ! skip:

          cycle

        end if

      end if ! selection

      ! filter:

      if ( self%values(i)%p%glb ) cycle

      ! no need to put out data that is global on each processor:

      if ( self%values(i)%p%glb ) then

        ! info ...

        write (csol,'(a,":   no need to put out global data ...")') rname; call csoPr

        ! skip:

        cycle

      end if

      ! put out:

      call self%values(i)%p%NcPutGather( ncf, mapping, add, status )

      IF_NOT_OK_RETURN(status=1)