confac_mod.f

29 lines · 1 definitions · on GitHub (7be4133)

Python version: confac_mod.py, 14 lines, on the right (switch to Python above the code).

Variables on this page (4)

con_mass, con_rad, con_temp, con_time

Purpose

CONFAC_MOD holds the factors that convert radius, mass, temperature and time between the code's units and those of the diffusion routines (from Bahcall's): CON_RAD, CON_MASS, CON_TEMP, CON_TIME. It replaces COMMON/CONFAC/ (MHP via Claude, 10/14/26).

Who sets them, who reads them. Set by MICRODIFF_SETUP and SETUP_GRSETT, with the same formulas ($1/R_\odot$, $10^{-2}$ CON_RAD³, $10^{-7}$, $2.7\times10^{13}$ yr in seconds: the units of Bahcall and Loeb (1989), a length unit $R_\odot$, a mass unit $100\ \mathrm{g\,cm^{-3}}\times R_\odot^3$, a temperature unit $10^7$ K, and a time unit that "includes factor of 2.2 from ln Lambda," the Coulomb logarithm; see MICRODIFF_SETUP); read by them and by EQUAL_TO_MODEL and MICRODIFF_ETM.

Definitions

moduleCONFAC_MOD

lines 19–29 · GitHub

Used by (4 units)

EQUAL_TO_MODEL, MICRODIFF_ETM, MICRODIFF_SETUP, SETUP_GRSETT

Change log

The changes since rp_1

Changed since rp_1. New file: COMMON/CONFAC/ as a module.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C CONFAC_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/CONFAC/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 4 files declared this block identically, so the USE 11C imports exactly the names the declaration already made global in 12C each scoping unit and cannot change meaning. 13C 14C The types restate what the implicit rules supplied: L is 15C LOGICAL*4, I/J/K/M/N are INTEGER*4, everything else REAL*8. 16C SAVE is explicit rather than relying on module variables being 17C implicitly saved, which holds only from Fortran 2008 while ifort 18C Classic predates it. That matches COMMON's semantics. 19 MODULE CONFAC_MOD 20 21 IMPLICIT NONE 22 SAVE 23 24 REAL*8 :: CON_RAD 25 REAL*8 :: CON_MASS 26 REAL*8 :: CON_TEMP 27 REAL*8 :: CON_TIME 28 29 END MODULE CONFAC_MOD

1"""Python version of confac_mod.f (YREC 7be4133): the unit conversions of 2the diffusion routines, formerly COMMON/CONFAC/. 3 4Translates: confac_mod.f#CONFAC_MOD (7be4133) 5 6Module-level names, as in the Fortran module, in lower case. Routines that 7USE CONFAC_MOD import this module and write ``confac_mod.<name>``. 8""" 9 10# Set by microdiff_setup and setup_grsett (Fortran lines 24–27). 11con_rad = 0.0 # 1/Rsun 12con_mass = 0.0 # 1e-2 * con_rad**3 13con_temp = 0.0 # 1e-7 14con_time = 0.0 # 2.7e13 yr in seconds