qenvmix_mod.f

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

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

Variables on this page (1)

cmixlq

Purpose

QENVMIX_MOD relays the mixing-length parameter from ENVINT to QENV. Shared by 2 routines. It replaces no rp_1 block: at rp_1, TPGRAD read CMIXL from COMMON/CONST3/; since CMIXL became an argument (9/24/26), QENV must pass it on to TPGRAD, but QENV's argument list cannot change, since it is also called as the DERIV callback of BSSTEP and MMID (QENV's comment). The relay was a COMMON/QENVMIX/ first, then this module (MHP via Claude, 10/14/26).

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

CMIXLQ: the mixing-length parameter $\alpha$, set to ENVINT's argument CMIXL on every entry to ENVINT; read by QENV, which passes it to TPGRAD.

Definitions

moduleQENVMIX_MOD

lines 19–26 · GitHub

Used by (2 units)

ENVINT, QENV

Change log

The changes since rp_1

Changed since rp_1. New file: a module for CMIXL, formerly read from COMMON/CONST3/.

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

1"""Python version of qenvmix_mod.f (YREC 7be4133): the mixing-length parameter relayed from envint to qenv. 2 3Translates: qenvmix_mod.f#QENVMIX_MOD (7be4133) 4 5Module-level names, as in the Fortran module, in lower case. Routines that 6USE QENVMIX_MOD import this module and write ``qenvmix_mod.<name>``. 7""" 8 9# Fortran line 24. 10cmixlq = 0.0 # mixing-length parameter (envint sets it to cmixl; qenv reads it)