MAKE_SUBTAG_ALLUVIAL.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	make_subtag_alluvial (nn_s, zz_elevation, j, sub_tag_all
	Assignes labels for multi not-honoring technique.

Function/Subroutine Documentation

make_subtag_alluvial()

subroutine make_subtag_alluvial	(	integer*4	nn_s,
		real*8, dimension(nn_s)	zz_elevation,
		integer*4	j,
		integer*4, dimension(nn_s)	sub_tag_all
	)

Assignes labels for multi not-honoring technique.

Warning

Not yet validated. Do not use it.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Parameters

[in]	nn_s	number of nodes
[in]	zz_elevation	depth of the nodes with respect to the surface
[in]	j	= tag
[in]	xx_s	x-coordinate of spectral nodes
[out]	sub_tag_all	labels for multi not-honoring

Definition at line 30 of file MAKE_SUBTAG_ALLUVIAL.f90.

            
      implicit none
      
      integer*4 :: nn_s,isn,j, ival
 
      integer*4, dimension(nn_s) :: sub_tag_all
      
      real*8, dimension(nn_s) :: zz_elevation
      real*8, dimension(nn_s) :: xx_s
      
 
      do isn = 1, nn_s
         if (zz_elevation(isn) .ge. 0.0d0 .and. (sub_tag_all(isn) .eq. ival)) then
 
                !if ((xx_s(isn) .ge. 685956).and.(xx_s(isn) .le. 701105)) then
                        sub_tag_all(isn) = j
                !else
                !        sub_tag_all(isn) = j+4
                !endif
        endif
     enddo
      
      return
      

Referenced by make_nothonoring().

Here is the caller graph for this function: