sinter Module Reference

Functions/Subroutines
subroutine	sinter_extrp_up (X, A, Y, B, M1, N1)
subroutine	sinter_extrp_down (X, A, Y, B, M1, N1)
subroutine	sinter_extrp_none (X, A, Y, B, M1, N1)
subroutine	sinter_extrp_both (X, A, Y, B, M1, N1)

Function/Subroutine Documentation

sinter_extrp_both()

subroutine sinter::sinter_extrp_both	(	real(sp), dimension(m1), intent(in)	X,
		real(sp), dimension(m1), intent(in)	A,
		real(sp), dimension(n1), intent(in)	Y,
		real(sp), dimension(n1), intent(out)	B,
		integer, intent(in)	M1,
		integer, intent(in)	N1
	)

Definition at line 181 of file sinter.f90.

!==============================================================================|


!==============================================================================|
   USE mod_prec
   IMPLICIT NONE
   INTEGER, INTENT(IN)  :: M1,N1
   REAL(SP),  INTENT(IN)  :: X(M1),A(M1),Y(N1)
   REAL(SP),  INTENT(OUT) :: B(N1) 
   INTEGER :: I,J,NM
!==============================================================================|

!
!  EXTRAPOLATION 
!
   DO i=1,n1
     IF(y(i) > x(1 )) b(i) = a(1) + ((a(1)-a(2))/(x(1)-x(2))) * (y(i)-x(1))
     IF(y(i) < x(m1)) b(i)=a(m1)+(a(m1-1)-a(m1))*(y(i)-x(m1))/(x(m1-1)-x(m1))
   END DO

!
!  INTERPOLATION
!
   nm = m1 - 1
   DO i=1,n1
     DO j=1,nm
       IF (y(i)<=x(j).AND.y(i)>=x(j+1)) &
          b(i) = a(j) - (a(j)- a(j+1)) *(x(j)-y(i)) / (x(j)-x(j+1))
     END DO
   END DO

   RETURN

sinter_extrp_down()

subroutine sinter::sinter_extrp_down	(	real(sp), dimension(m1), intent(in)	X,
		real(sp), dimension(m1), intent(in)	A,
		real(sp), dimension(n1), intent(in)	Y,
		real(sp), dimension(n1), intent(out)	B,
		integer, intent(in)	M1,
		integer, intent(in)	N1
	)

Definition at line 98 of file sinter.f90.

!  for baroclinic interpolation                                                |
!==============================================================================|


!==============================================================================|
   USE mod_prec
   IMPLICIT NONE
   INTEGER, INTENT(IN)  :: M1,N1
   REAL(SP),  INTENT(IN)  :: X(M1),A(M1),Y(N1)
   REAL(SP),  INTENT(OUT) :: B(N1) 
   INTEGER :: I,J,NM
!==============================================================================|

!
!  EXTRAPOLATION 
!
   DO i=1,n1
     IF(y(i) > x(1 )) b(i) = a(1)
     IF(y(i) < x(m1)) b(i)=a(m1)+(a(m1-1)-a(m1))*(y(i)-x(m1))/(x(m1-1)-x(m1))
   END DO

!
!  INTERPOLATION
!
   nm = m1 - 1
   DO i=1,n1
     DO j=1,nm
       IF (y(i)<=x(j).AND.y(i)>=x(j+1)) &
          b(i) = a(j) - (a(j)- a(j+1)) *(x(j)-y(i)) / (x(j)-x(j+1))
     END DO
   END DO

   RETURN

Here is the caller graph for this function:

sinter_extrp_none()

subroutine sinter::sinter_extrp_none	(	real(sp), dimension(m1), intent(in)	X,
		real(sp), dimension(m1), intent(in)	A,
		real(sp), dimension(n1), intent(in)	Y,
		real(sp), dimension(n1), intent(out)	B,
		integer, intent(in)	M1,
		integer, intent(in)	N1
	)

Definition at line 140 of file sinter.f90.

!  for t&s obc interpolation                                                   |
!==============================================================================|


   USE mod_prec
   IMPLICIT NONE
   INTEGER, INTENT(IN)  :: M1,N1
   REAL(SP),  INTENT(IN)  :: X(M1),A(M1),Y(N1)
   REAL(SP),  INTENT(OUT) :: B(N1) 
   INTEGER :: I,J,NM
!==============================================================================|


!
!   EXTRAPOLATION
!
   DO i=1,n1
     IF (y(i) > x(1 )) b(i) = a(1)
     IF (y(i) < x(m1)) b(i) = a(m1)
   END DO

!
!  INTERPOLATION
!
   nm = m1 - 1
   DO i=1,n1
     DO j=1,nm
       IF (y(i) <= x(j).AND.y(i) >= x(j+1))  &
       b(i) = a(j) - (a(j)- a(j+1)) * (x(j)-y(i)) / (x(j)-x(j+1))
     END DO
   END DO

   RETURN

Here is the caller graph for this function:

sinter_extrp_up()

subroutine sinter::sinter_extrp_up	(	real(sp), dimension(m1), intent(in)	X,
		real(sp), dimension(m1), intent(in)	A,
		real(sp), dimension(n1), intent(in)	Y,
		real(sp), dimension(n1), intent(out)	B,
		integer, intent(in)	M1,
		integer, intent(in)	N1
	)

Definition at line 60 of file sinter.f90.

!==============================================================================|
   USE mod_prec
   IMPLICIT NONE
   INTEGER, INTENT(IN)   :: M1,N1
   REAL(SP), INTENT(IN)  :: X(M1),A(M1),Y(N1)
   REAL(SP), INTENT(OUT) :: B(N1) 
   INTEGER   I,J,NM
!==============================================================================|

!
!  EXTRAPOLATION
!
   DO i=1,n1
       IF (y(i) > x(1 )) b(i) = a(1) + ((a(1)-a(2))/(x(1)-x(2))) * (y(i)-x(1))
       IF (y(i) < x(m1)) b(i) = a(m1)
   END DO

!
!  INTERPOLATION
!
   nm = m1 - 1
   DO i=1,n1
     DO j=1,nm
        IF (y(i) <=  x(j) .AND. y(i) >= x(j+1)) &
              b(i) = a(j) - (a(j)- a(j+1)) * (x(j)-y(i)) / (x(j)-x(j+1))
     END DO
   END DO

   RETURN

Here is the caller graph for this function: