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

Return to line_init.f90 CVS log

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

File: [Development] / JSOC / proj / vfisv / apps / line_init.f90 (download)
Revision: 1.5, Tue Apr 10 21:17:12 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 -0 lines

*** empty log message ***

SUBROUTINE LINE_INIT (LAMBDA_0, LAMBDA_B, NOISE_LEVEL)
  !
  ! J M Borrero
  ! Dec 14, 2009
  ! HAO-NCAR for HMI-Stanford
  !
  USE CONS_PARAM
  USE LINE_PARAM
  IMPLICIT NONE
  REAL(DP), INTENT(IN)                :: LAMBDA_0, LAMBDA_B
  REAL(DP), INTENT(IN), DIMENSION(4)  :: NOISE_LEVEL
  LANDA0 = LAMBDA_0
  SHIFT = LAMBDA_B
  NOISE = NOISE_LEVEL
 
  !
END SUBROUTINE LINE_INIT
!CVSVERSIONINFO "$Id: line_init.f90,v 1.5 2012/04/10 22:17:12 keiji Exp $"

Karen Tian