cent_mod.f

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

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

Variables on this page (5)

czsurf_m, czsurf_r, dcenter, pcenter, tcenter

Purpose

CENT_MOD holds the central conditions and the base of the surface convection zone of the last model written. It replaces COMMON/CENT/ (MHP via Claude, 10/14/26).

What its variables hold, who sets them, who reads them. All are set by WRTOUT: TCENTER, PCENTER, DCENTER, the central $\log T$, $\log P$, $\log\rho$; CZsurf_M, the mass of the surface convection zone ($M_\odot$; the star's mass when it is fully convective, 0 without one); CZsurf_R, the radius of its base ($R_\odot$). The main program reads them for the neutrino-flux output.

Definitions

moduleCENT_MOD

lines 19–30 · GitHub

Used by (2 units)

(file level), WRTOUT

Change log

The changes since rp_1

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

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C CENT_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/CENT/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 2 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 CENT_MOD 20 21 IMPLICIT NONE 22 SAVE 23 24 REAL*8 :: TCENTER 25 REAL*8 :: PCENTER 26 REAL*8 :: DCENTER 27 REAL*8 :: CZsurf_M 28 REAL*8 :: CZsurf_R 29 30 END MODULE CENT_MOD

1"""Python version of cent_mod.f (YREC 7be4133): the central conditions and the 2surface convection zone's base, formerly COMMON/CENT/. 3 4Translates: cent_mod.f#CENT_MOD (7be4133) 5 6Module-level names, as in the Fortran module, in lower case. Routines that 7USE CENT_MOD import this module and write ``cent_mod.<name>``. 8""" 9 10# All set by wrtout; read by main for the neutrino-flux output (Fortran 11# lines 24–28). 12tcenter = 0.0 # central log T 13pcenter = 0.0 # central log P 14dcenter = 0.0 # central log rho 15czsurf_m = 0.0 # mass of the surface convection zone (Msun) 16czsurf_r = 0.0 # radius of its base (Rsun)