ovrtrn_mod.f

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

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

Variables on this page (5)

fracstep, pphot, pphot0, taucz, taucz0

Purpose

OVRTRN_MOD holds the convective overturn time and the photospheric pressure at the start and end of a step, and the fraction of the step reached, which the wind laws and the rotational mixing use. Shared by 18 routines. It replaces COMMON/OVRTRN/ (MHP via Claude, 10/14/26), less its two switches LNEWTCZ and LCALCENV, which are now in NMLPAR_MOD (default .TRUE. each).

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

TAUCZ: the convective overturn time of the surface convection zone (seconds; MASSLOSS prints TAUCZ/CSECYR). Computed by TAUCAL, TAUINT or TAUINTNEW, reached through GETTAU (which first sets it to 0) and ENVINT; MASSLOSS and the main program reset it to 0 when there is no convective envelope. Read by the wind laws (WIND, COWIND, MWIND, MCOWIND), AMCALC, DADCOEFT, DEUTRATE, ENGEB and WRTOUT.
PPHOT: the photospheric pressure, set by ENVINT (and to 0 first by GETTAU); read by AMCALC and WRTOUT.
TAUCZ0, PPHOT0: TAUCZ and PPHOT at the start of the step, copied after GETTAU by STARIN (for the first model) and WRTOUT (for the next step); read by AMCALC, MWIND, MCOWIND.
FRACSTEP: the fraction of the step at which the wind is evaluated, for $\tau = \tau_0 + f\,(\tau_1-\tau_0)$; set to 0.5 by STARIN and by GETW (which also sets it to the fraction reached in its substeps); read by AMCALC, MWIND, MCOWIND.

Design

A blanket USE OVRTRN_MOD in each routine.

Definitions

moduleOVRTRN_MOD

lines 19–30 · GitHub

Used by (18 units)

(file level), AMCALC, COWIND, DADCOEFT, DEUTRATE, ENGEB, ENVINT, GETTAU, GETW, MASSLOSS, MCOWIND, MWIND, STARIN, TAUCAL, TAUINT, TAUINTNEW, WIND, WRTOUT

Change log

The changes since rp_1

Changed since rp_1. New file: COMMON/OVRTRN/ as a module, with LNEWTCZ and LCALCENV moved to NMLPAR_MOD.