label_mod.f

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

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

Variables on this page (2)

xenv0, zenv0

Purpose

LABEL_MOD holds the envelope's $X$ and $Z$ of the current run, used to label the output, shared by 6 routines. It replaces COMMON/LABEL/ (MHP via Claude, 10/14/26).

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

XENV0, ZENV0 (REAL*8): set by the main program at the start of each run NK from the namelist arrays XENV0A(NK), ZENV0A(NK), and by RSCALE when the run rescales the composition (RESCAL(2,NK), RESCAL(3,NK); RSCALE then also sets ZENV from ZENV0, "DBG 4/95 bug fix"). Written in the headers of the output by WRTHEAD, WRTMOD and WRTOUT.
Initial values 0.7D0 and 0.02D0, moved from PARMIN's DATA XENV0, ZENV0/0.7,0.02/; they are overwritten before any use.

Design

A blanket USE LABEL_MOD; PARMIN still uses the module, though it no longer reads or writes either member (at rp_1 it wrote them to the .short file). The module header says its literals are copied verbatim, but the DATA statement's single-precision 0.7 and 0.02 became 0.7D0 and 0.02D0; harmless, since the defaults are never used, and the two are in no namelist, unlike what the header says.

Definitions

moduleLABEL_MOD

lines 29–37 · GitHub

Used by (6 units)

(file level), PARMIN, RSCALE, WRTHEAD, WRTMOD, WRTOUT

Change log

The changes since rp_1

Changed since rp_1. New file: COMMON/LABEL/ as a module, with its defaults moved from PARMIN (now in double precision); PARMIN no longer writes them.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C LABEL_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/LABEL/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 6 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 2 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 LABEL_MOD 30 31 IMPLICIT NONE 32 SAVE 33 34 REAL*8 :: XENV0 = 0.7D0 35 REAL*8 :: ZENV0 = 0.02D0 36 37 END MODULE LABEL_MOD

1"""Python version of label_mod.f (YREC 7be4133): the envelope X and Z of 2the current run, for the output, formerly COMMON/LABEL/. 3 4Translates: label_mod.f#LABEL_MOD (7be4133) 5 6Routines that USE LABEL_MOD import this module and write 7``label_mod.<name>``. 8""" 9 10# The envelope X and Z (Fortran lines 34–35). 11xenv0 = 0.7 # envelope X of the run (main, rscale); initializer 0.7D0 12zenv0 = 0.02 # envelope Z of the run (main, rscale); initializer 0.02D0