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

Return to free_init.f90 CVS log

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

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

*** empty log message ***

SUBROUTINE FREE_INIT (LIST_FREE_PARAMS)
  !
  ! J M Borrero
  ! Dec 14, 2009
  ! HAO-NCAR for HMI-Stanford
  !
  USE INV_PARAM
  USE FILT_PARAM
  IMPLICIT NONE
  INTEGER, INTENT(IN), DIMENSION(10)         :: LIST_FREE_PARAMS
  INTEGER                                    :: I,J
  !
  FREE(:) = .FALSE.
  NUMFREE_PARAM = 0
  NUMFREE_DEG = 4*NBINS
  !
  DO I=1,10
     IF (LIST_FREE_PARAMS(I).EQ.1) THEN
        FREE(I) = .TRUE.
        NUMFREE_PARAM=NUMFREE_PARAM+1
        NUMFREE_DEG = NUMFREE_DEG - 1
     ENDIF
  ENDDO

  ALLOCATE (FREELOC(NUMFREE_PARAM))
  J=1
  DO I=1,10
     IF (FREE(I).EQ..TRUE.) THEN
        FREELOC(J)=I
        J=J+1
     ENDIF
  ENDDO

  !FREE(1)                                    ! ETA0
  !FREE(2)                                    ! FIELD INCLINATION
  !FREE(3)                                    ! FIELD AZIMUTH
  !FREE(4)                                    ! DAMPING
  !FREE(5)                                    ! DOPPLER WIDTH
  !FREE(6)                                    ! FIELD STREGNTH
  !FREE(7)                                    ! MAGNETIC LOS VELOCITY
  !FREE(8)                                    ! SOURCE FUNCTION CONTINUUM
  !FREE(9)                                    ! SOURCE FUNCTION GRADIENT
  !FREE(10)                                   ! MAGNETIC FILLING FACTOR
END SUBROUTINE FREE_INIT
!CVSVERSIONINFO "$Id: free_init.f90,v 1.5 2012/04/10 22:16:39 keiji Exp $"

Karen Tian