Тут расчетные модели на фортране, часто это удобнее, чем online
Модели
Страница: 1
Сообщений 1 страница 2 из 2
Поделиться12007-06-27 19:45:13
- баба-Яга
- Откуда: Москва, ИФЗ РАН
- Зарегистрирован: 2007-04-22
- Приглашений: 0
- Сообщений: 1148
- Возраст: 61 [1964-01-10]
- Провел на форуме:
1 день 16 часов - Последний визит:
2025-01-31 22:51:20
Поделиться22007-06-27 19:48:29
- баба-Яга
- Откуда: Москва, ИФЗ РАН
- Зарегистрирован: 2007-04-22
- Приглашений: 0
- Сообщений: 1148
- Возраст: 61 [1964-01-10]
- Провел на форуме:
1 день 16 часов - Последний визит:
2025-01-31 22:51:20
Модель Сибека для магнитопаузы, оказывается, - просто формула, не зависящая ни от чего, даже удивительно, что так. Ссылка отсюда
http://nssdcftp.gsfc.nasa.gov/models/ma … xu/aen.for
SUBROUTINE SMPF(XSM,RMP,IM)
C FIND THE RADIUS OF THE CROSS SECTION OF THE MAGNETOPAUSE RMP AND PARAMETER IE
C IE=1: INSIDE THE MAGNETOPAUSE, IE=2: OUTSIDE THE MAGNETOPAUSE
C RMPIS DETERMINED BY THE
C MAGNETOPAUSE MODEL OF SIBECK ET AL IN:
C Sibeck, D. G., R. E. Lopez, and R. C. Roelof, Solar wind control of the
C magnetopause shape, location, and motion, J. Grophys. Res., 96, 5489, 1991
IM=0
RMP2=-0.14*XSM**2-18.2*XSM+217.2
IF(RMP2.LT.0) THEN
IM=9999.99
GOTO 50
ENDIF
RMP=SQRT(RMP2)
IF(XSM.LE.-65) RMP=28.5
50 RETURN
END
Страница: 1
