JSOC/proj/vfisv/apps/filt_init.f90 - view

Return to filt_init.f90 CVS log

Up to [Development] / JSOC / proj / vfisv / apps

File: [Development] / JSOC / proj / vfisv / apps / filt_init.f90 (download)
Revision: 1.6, Tue Apr 10 21:16:24 2012 UTC (11 years, 1 month ago) by keiji
Branch: MAIN
CVS Tags: Ver_LATEST, Ver_9-5, Ver_9-41, Ver_9-4, Ver_9-3, Ver_9-2, Ver_9-1, Ver_9-0, Ver_8-8, Ver_8-7, Ver_8-6, Ver_8-5, Ver_8-4, Ver_8-3, Ver_8-2, Ver_8-12, Ver_8-11, Ver_8-10, Ver_8-1, Ver_8-0, Ver_7-1, Ver_7-0, Ver_6-4, Ver_6-3, Ver_6-2, HEAD
Changes since 1.5: +4 -11 lines

*** empty log message ***

SUBROUTINE FILT_INIT (NUM_LAMBDA_FILTER,  WSPACING, NUM_LAMBDA_LONG)
  !
  ! J M Borrero
  ! Dec 14, 2009
  ! HAO-NCAR for HMI-Stanford
  !
  ! RCE Apr 21, 2010: Commented out almost everything (all that's 
  ! related to computing the actual filter profiles because they are
  ! computed in the C wrapper (by Sebastien Couvidat).
  !
  ! RCE May 5, 2010: Uncommented the line that computes TUNEPOS calculation:        
  ! TUNEPOS(I) = (-(NBINS-1D0)/2D0+DBLE(I-1))*WSPACING
  ! because WFA_GUESS.F90 needs it to estimate the velocity.


  USE FILT_PARAM
  USE LINE_PARAM
  USE CONS_PARAM
  IMPLICIT NONE
  !
  INTEGER,  INTENT(IN)           :: NUM_LAMBDA_FILTER, NUM_LAMBDA_LONG
  REAL(DP), INTENT(IN)           :: WSPACING
  INTEGER                        :: I
  !
  NUMW_LONG = NUM_LAMBDA_LONG
  NBINS = NUM_LAMBDA_FILTER

   ! TUNEPOS is used in wfa_guess to calculate velocity guess
   DO I=1,NBINS
      TUNEPOS(I) = (-(NBINS-1D0)/2D0+DBLE(I-1))*WSPACING
   ENDDO

END SUBROUTINE FILT_INIT
!CVSVERSIONINFO "$Id: filt_init.f90,v 1.6 2012/04/10 22:16:24 keiji Exp $"

Karen Tian