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

Return to wave_init.f90 CVS log

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

File: [Development] / JSOC / proj / vfisv / apps / wave_init.f90 (download)
Revision: 1.5, Tue Apr 10 21:17:56 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.4: +1 -3 lines

*** empty log message ***

SUBROUTINE WAVE_INIT (LAMBDA_MIN, DELTA_LAMBDA, NUM_LAMBDA)
  !
  ! J M Borrero
  ! Dec 14, 2009
  ! HAO-NCAR for HMI-Stanford
  USE CONS_PARAM
  USE LINE_PARAM
  IMPLICIT NONE
  REAL(DP), INTENT(IN) :: LAMBDA_MIN, DELTA_LAMBDA
  INTEGER,  INTENT(IN) :: NUM_LAMBDA
  INTEGER              :: I
  !
  NUMW=NUM_LAMBDA
  STEPW=DELTA_LAMBDA

  !
  DO I=1,NUMW
     WAVE(I)=LAMBDA_MIN+DBLE(I-1)*STEPW
  ENDDO
  !
END SUBROUTINE WAVE_INIT
!CVSVERSIONINFO "$Id: wave_init.f90,v 1.5 2012/04/10 22:17:56 keiji Exp $"

Karen Tian