GTS7 Subroutine

  1. msis00_gfortran.f
  2. GTS7

subroutine GTS7(IYD, SEC, ALT, GLAT, GLONG, STL, F107A, F107, AP, MASS, D, T)

Arguments

Type IntentOptional AttributesName
integer :: IYD
real :: SEC
real :: ALT
real :: GLAT
real :: GLONG
real :: STL
real :: F107A
real :: F107
real :: AP
integer :: MASS
real :: D
real :: T

Calls

proc~~gts7~~CallsGraph proc~gts7 GTS7 pma pma proc~gts7->pma pt pt proc~gts7->pt sw sw proc~gts7->sw proc~glob7s GLOB7S proc~gts7->proc~glob7s alog alog proc~gts7->alog proc~ccor CCOR proc~gts7->proc~ccor mt mt proc~gts7->mt alpha alpha proc~gts7->alpha ptl ptl proc~gts7->ptl proc~densu DENSU proc~gts7->proc~densu zn1 zn1 proc~gts7->zn1 proc~dnet DNET proc~gts7->proc~dnet tn1 tn1 proc~gts7->tn1 proc~scalh SCALH proc~gts7->proc~scalh altl altl proc~gts7->altl ptm ptm proc~gts7->ptm amod amod proc~gts7->amod pdm pdm proc~gts7->pdm ps ps proc~gts7->ps pd pd proc~gts7->pd tgn1 tgn1 proc~gts7->tgn1 proc~globe7 GLOBE7 proc~gts7->proc~globe7 proc~ccor2 CCOR2 proc~gts7->proc~ccor2 pdl pdl proc~gts7->pdl proc~vtst7 VTST7 proc~gts7->proc~vtst7 proc~glob7s->sw swc swc proc~glob7s->swc apt apt proc~glob7s->apt plg plg proc~glob7s->plg t t proc~glob7s->t proc~splini SPLINI proc~densu->proc~splini proc~splint SPLINT proc~densu->proc~splint xs xs proc~densu->xs amax1 amax1 proc~densu->amax1 proc~spline SPLINE proc~densu->proc~spline zeta zeta proc~densu->zeta ys ys proc~densu->ys proc~dnet->alog proc~globe7->sw sumex sumex proc~globe7->sumex proc~globe7->swc proc~globe7->apt sg0 sg0 proc~globe7->sg0 proc~globe7->plg g0 g0 proc~globe7->g0 proc~globe7->t proc~vtst7->sw glatl glatl proc~vtst7->glatl stll stll proc~vtst7->stll swl swl proc~vtst7->swl fl fl proc~vtst7->fl fal fal proc~vtst7->fal proc~vtst7->swc secl secl proc~vtst7->secl apl apl proc~vtst7->apl gll gll proc~vtst7->gll iydl iydl proc~vtst7->iydl swcl swcl proc~vtst7->swcl amin1 amin1 proc~splini->amin1 u u proc~spline->u

Called by

proc~~gts7~~CalledByGraph proc~gts7 GTS7 proc~gtd7 GTD7 proc~gtd7->proc~gts7 proc~gtd7d GTD7D proc~gtd7d->proc~gtd7 proc~ghp7 GHP7 proc~ghp7->proc~gtd7 proc~neutral_atmos neutral_atmos proc~neutral_atmos->proc~gtd7 interface~neutral_atmos neutral_atmos interface~neutral_atmos->proc~neutral_atmos program~gemini3d Gemini3D program~gemini3d->interface~neutral_atmos

Contents

Common Blocks


Common Blocks

common /GTS3C/

Type AttributesNameInitial
real :: TLB
real :: S
real :: DB04
real :: DB16
real :: DB28
real :: DB32
real :: DB40
real :: DB48
real :: DB01
real :: ZA
real :: T0
real :: Z0
real :: G0
real :: RL
real :: DD
real :: DB14
real :: TR12

common /MESO7/

Type AttributesNameInitial
real :: TN1(5)
real :: TN2(4)
real :: TN3(5)
real :: TGN1(2)
real :: TGN2(2)
real :: TGN3(2)

common /LOWER7/

Type AttributesNameInitial
real :: PTM(10)
real :: PDM(10,8)

common /PARM7/

Type AttributesNameInitial
real :: PT(150)
real :: PD(150,9)
real :: PS(150)
real :: PDL(25,2)
real :: PTL(100,4)
real :: PMA(100,10)
real :: SAM(100)

common /CSW/

Type AttributesNameInitial
real :: SW(25)
integer :: ISW
real :: SWC(25)

common /TTEST/

Type AttributesNameInitial
real :: TINFG
real :: GB
real :: ROUT
real :: TT(15)

common /DMIX/

Type AttributesNameInitial
real :: DM04
real :: DM16
real :: DM28
real :: DM32
real :: DM40
real :: DM01
real :: DM14

common /METSEL/

Type AttributesNameInitial
integer :: IMR