IMPLICIT REAL*8 (A-H,M,O-Z)
      PARAMETER(Nhr=28)         ! 高度分层数(电场模块每根磁力线上每半球的计算点数)
      PARAMETER(NLi=44)         ! 电离层模块磁力线数目(高度分层数)
!
! For 97 km lb (see also TIME3Dgrid.f):
!     PARAMETER(NLi=42)         ! 电离层模块磁力线数目(高度分层数)

      PARAMETER(NFi=24)         ! 电离层模块子午面数目 
      PARAMETER(lmi=NLi*2)
      PARAMETER(NHN=149)        ! 高纬电离层磁力线数
      PARAMETER(nk=11)          ! 高纬电离层纬度数
      PARAMETER(RE=6371.2D0)    ! 地球半径
      PARAMETER(Bki=1.0)        ! 磁场类型: <0,中心偶极子,  >0 APEX.
      PARAMETER(kVC=1.0)        ! 场向速度计算: 1,稳态,  2,时变
      PARAMETER(CLNPd=11.0)     ! 地磁北极余纬(偶极子场)
      PARAMETER(iHe=0)          ! 是否计算He+ 0,不计算,  1,计算