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

Return to inv_param.f90 CVS log

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

File: [Development] / JSOC / proj / vfisv / apps / inv_param.f90 (download)
Revision: 1.5, Tue Apr 10 21:16:59 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: +5 -5 lines

*** empty log message ***

MODULE INV_PARAM
  !
  ! J M Borrero
  ! Dec 14, 2009
  ! HAO-NCAR for HMI-Stanford
  !
  ! By RCE, April 2012: Most of the variables defined here are 
  ! initialized in calls to INV_INIT and LIM_INIT from
  ! the wrapper. 

  USE CONS_PARAM
  IMPLICIT NONE
  LOGICAL,  DIMENSION(10)            :: FREE
  INTEGER,     ALLOCATABLE           :: FREELOC(:)
  INTEGER                            :: ITER, NUMFREE_PARAM, NUMFREE_DEG
  REAL(DP)                           :: SVDTOL, GOODFIT, TREPOL, TREIC, ICONT
  REAL(DP), DIMENSION(10)            :: LOWER_LIMIT,UPPER_LIMIT
  REAL(DP)                           :: ICONT_REF
  REAL(DP), DIMENSION(10)            :: DLIMIT,RLIMIT
  REAL(DP), DIMENSION(10)            :: NORM
  REAL(DP)                           :: DELTACHIMIN, LAMBDA_UP, LAMBDA_DOWN, LAMBDA_MIN=1D-4, LAMBDA_MAX

END MODULE INV_PARAM
!CVSVERSIONINFO "$Id: inv_param.f90,v 1.5 2012/04/10 22:16:59 keiji Exp $"

Karen Tian