func_maxy.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	func_maxy (idn, fac, npc, pld, maxy)

Function/Subroutine Documentation

func_maxy()

subroutine func_maxy	(	integer, intent(in)	idn,
			fac,
		integer, dimension(*), intent(in)	npc,
		intent(in)	pld,
		intent(out)	maxy )

Definition at line 31 of file func_maxy.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE table_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IDN,NPC(*) 
      my_real pld(*),fac,maxy
C-----------------------------------------------
      INTENT(IN)    :: npc,pld,idn
      INTENT(OUT)   :: maxy
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,K,ID,NP1,NP2,K1,PN1,PN2
      my_real dydx,dx,dy,yy
C========================================= 
          ! COMPUTE MAXIMUM y coordinate  
C========================================= 
          pn1 = npc(idn)
          pn2 = npc(idn+1)
          maxy = zero
          DO j = pn1+1,pn2-1,2
            yy = pld(j) 
            maxy = max(yy , maxy)
          ENDDO
          maxy    = fac* maxy
c-----------
      RETURN