alatm05_mod.f

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

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

Variables on this page (2)

al_tefflmax, al_tefflmin

Purpose

ALATM05_MOD holds the Allard table's own first and last $\log T_\mathrm{eff}$, AL_TEFFLmin and AL_TEFFLmax. It replaces COMMON/ALATM05/ (MHP via Claude, 10/14/26).

Who sets them, who reads them. Both are set by ALTABINIT; SURFBC reads AL_TEFFLmax to decide when to switch away from the Allard atmospheres. AL_TEFFLmin is read nowhere.

Definitions

moduleALATM05_MOD

lines 19–27 · GitHub

Used by (2 units)

ALTABINIT, SURFBC

Change log

The changes since rp_1

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

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C ALATM05_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/ALATM05/ 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 ALATM05_MOD 20 21 IMPLICIT NONE 22 SAVE 23 24 REAL*8 :: AL_TEFFLmin 25 REAL*8 :: AL_TEFFLmax 26 27 END MODULE ALATM05_MOD

1"""Python version of alatm05_mod.f (YREC 7be4133): the Allard table's first and last log Teff, formerly COMMON/ALATM05/. 2 3Translates: alatm05_mod.f#ALATM05_MOD (7be4133) 4 5Module-level names, as in the Fortran module, in lower case. Routines that 6USE ALATM05_MOD import this module and write ``alatm05_mod.<name>``. 7""" 8 9 10# Fortran lines 24–25. 11al_tefflmin = 0.0 # set by altabinit, read nowhere 12al_tefflmax = 0.0 # set by altabinit, read by surfbc