newopac_mod.f

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

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

Variables on this page (2)

l2z, llaol

Purpose

NEWOPAC_MOD holds two switches of the opacity setup, shared by 4 routines. It replaces what is left of COMMON/NEWOPAC/ (MHP via Claude, 10/14/26), into which /MISCOPAC/ and /NWLAOL/ had been merged on 9/24/26: the opacity choices and their $Z$ and temperature limits (ZOPAL951, TMOLMIN, TMOLMAX, LALEX06, LOPAL95) are namelist variables now in NMLPAR_MOD, and the members of obsolete tables (ZLAOL1, ZOPAL1, ZALEX1, ZKUR1, LLAOL89, LOPAL92, LKUR90, LALEX95 and their pairs) were removed with those options.

What its variables hold, who sets them, who reads them. Both are LOGICAL*4.

L2Z: whether two opacity tables in $Z$ are needed, LZRAMP .OR. LDIFZ, set by SETUPOPAC; read by GETOPAC in its test of whether the local $Z$ is covered by the tables (a $Z$ far from ZENV is accepted only with L2Z or LOPAL95).
LLAOL: the switch of the obsolete LAOL opacities, initially .FALSE. (moved from PARMIN's DATA statement) and set nowhere, so STARIN always takes the element fractions from VNEW rather than from the LAOL tables (its comment: "to maintain backward compatibility," starin.f, lines 910–916 ↗); unused? (a switch that cannot be turned on, for tables that were removed).

Design

A blanket USE NEWOPAC_MOD; PARMIN still uses the module but reads neither member. The module header calls LLAOL a namelist variable, but it is in no namelist (so also at rp_1).

Definitions

moduleNEWOPAC_MOD

lines 29–37 · GitHub

Used by (4 units)

GETOPAC, PARMIN, SETUPOPAC, STARIN

Change log

The changes since rp_1

Changed since rp_1. New file: L2Z of COMMON/NEWOPAC/ and LLAOL of /NWLAOL/ as a module; the namelist members moved to NMLPAR_MOD, those of removed opacity tables deleted.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C NEWOPAC_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/NEWOPAC/ 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 imports 11C exactly the names the declaration already made global in each 12C 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 18C ifort Classic predates it. That matches COMMON's semantics. 19C 20C 1 of the 2 members carry an initializer, migrated 21C from parmin.f's DATA statements because DATA on a USE-associated 22C name is rejected. The literal text is copied verbatim: these 23C are namelist variables whose DATA supplied a default the 24C namelist read could override, and a module initializer is 25C applied once at load time, before PARMIN runs, which is the 26C same thing. Rewriting a literal such as 0.9828 as 0.9828D0 27C would change its stored value, so that is deliberately not 28C done here; see KNOWN_ISSUES.md issue 23. 29 MODULE NEWOPAC_MOD 30 31 IMPLICIT NONE 32 SAVE 33 34 LOGICAL*4 :: L2Z 35 LOGICAL*4 :: LLAOL = .FALSE. 36 37 END MODULE NEWOPAC_MOD

1"""Python version of newopac_mod.f (YREC 7be4133): two switches of the 2opacity setup, formerly parts of COMMON/NEWOPAC/ and /NWLAOL/. 3 4Translates: newopac_mod.f#NEWOPAC_MOD (7be4133) 5 6Routines that USE NEWOPAC_MOD import this module and write 7``newopac_mod.<name>``. 8""" 9 10# The two switches (Fortran lines 34–35). 11l2z = False # two opacity tables in Z needed: lzramp or ldifz (setupopac) 12llaol = False # obsolete LAOL opacities; set nowhere, unused? (initializer)