pualpha_mod.f

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

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

Variables on this page (3)

alfmlt, cmxmlt, phmlt

Purpose

PUALPHA_MOD holds three mixing-length quantities at the current point, for the pulsation output. Shared by 2 routines. It replaces COMMON/PUALPHA/ ("DBG 7/95," MHP via Claude, 10/14/26); JSON comes from DIMENSIONS_MOD.

What its variables hold, who sets them, who reads them.

ALFMLT, PHMLT, CMXMLT: set to 0 on every entry to TPGRAD and computed nowhere; ENVINT writes them in the envelope's pulsation output (IPVER = 3).

Design

A blanket USE PUALPHA_MOD in each routine. Since the three scalars are always 0, so are the columns written (see TPGRAD's page).

Definitions

modulePUALPHA_MOD

lines 19–35 · GitHub

Uses modules DIMENSIONS_MOD

Used by (2 units)

ENVINT, TPGRAD

Change log

The changes since rp_1

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

Changed since a8a5950. The per-shell arrays VALFMLT, VPHMLT, and VCMXMLT, always-zero copies of the three scalars that COEFFT stored and WRTMOD wrote, are gone; WRTMOD now writes zeros in their columns. The module still USEs DIMENSIONS_MOD, which nothing in it needs now.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C PUALPHA_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/PUALPHA/ 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 PUALPHA_MOD 20C 10/20/26 MHP via Claude 21C code changed to take JSON from DIMENSIONS_MOD instead of declaring 22C a PRIVATE copy here. 23 USE DIMENSIONS_MOD 24 25 IMPLICIT NONE 26 SAVE 27 28 REAL*8 :: ALFMLT 29 REAL*8 :: PHMLT 30 REAL*8 :: CMXMLT 31C 11/02/26 MHP via Claude 32C code changed to drop VALFMLT, VPHMLT and VCMXMLT, always-zero copies 33C of the three scalars above; WRTMOD now writes literal zeros. 34 35 END MODULE PUALPHA_MOD

1"""Python version of pualpha_mod.f (YREC 7be4133): mixing-length quantities 2for the pulsation output, formerly COMMON/PUALPHA/. 3 4Translates: pualpha_mod.f#PUALPHA_MOD (7be4133) 5 6Module-level names, as in the Fortran module, in lower case. Routines that 7USE PUALPHA_MOD import this module and write ``pualpha_mod.<name>``. 8""" 9 10# At the current point (Fortran lines 28–30): set to 0 by tpgrad and 11# computed nowhere (see TPGRAD's page); written by envint. 12alfmlt = 0.0 13phmlt = 0.0 14cmxmlt = 0.0