source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/examples/test_interpolation/function_ana.F90 @ 4775

SUBROUTINE function_ana(ni,nj, &
                        coords_1,coords_2, &
                        fnc_ana,ib)
  !*********************************************************************************************************************
  !
  IMPLICIT NONE
  !
#ifdef NO_USE_DOUBLE_PRECISION
  INTEGER, PARAMETER :: wp = SELECTED_REAL_KIND(6,37)   ! real
#elif defined USE_DOUBLE_PRECISION
  INTEGER, PARAMETER :: wp = SELECTED_REAL_KIND(12,307) ! double
#endif
  !
  ! Constants
  !
  REAL (kind=wp), PARAMETER    :: coef = 2.
  !
  REAL (kind=wp), PARAMETER    :: dp_pi=3.14159265359
  REAL (kind=wp), PARAMETER    :: dp_length= 1.2*dp_pi
  REAL (kind=wp), PARAMETER    :: dp_conv = dp_pi/180.
  !
  INTEGER, INTENT(in) :: ni,nj,ib
  !
  INTEGER             :: i,j
  !
  REAL (kind=wp), INTENT(out)            :: fnc_ana(ni,nj)
  !
  REAL (kind=wp)                         :: coords_1(ni,nj)
  REAL (kind=wp)                         :: coords_2(ni,nj)
  !
  !
  DO j=1,nj
    DO i=1,ni
      fnc_ana(i,j) =  ib*(coef - COS(dp_pi*(ACOS(COS(coords_2(i,j)* dp_conv)* &
         COS(coords_1(i,j)* dp_conv))/dp_length)))
    ENDDO
  ENDDO
  !
  !
END SUBROUTINE function_ana
!