liov_mod.f

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

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

Variables on this page (2)

pscal0, pscal1

Purpose

LIOV_MOD holds the overshoot distance below the surface convection zone at the start and end of the step, used for light-element burning with overshoot ("11/91 changed for lithium burning with overshoot"), shared by 5 routines. It replaces COMMON/LIOV/ (MHP via Claude, 10/14/26).

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

PSCAL1 (REAL*8): the overshoot distance at the end of the step, ALPHAE times the pressure scale height at the base of the convection zone, $\alpha_e\,P r^2/(\rho\,G m)$ (cm), with LOVSTE and a convective surface; 0 otherwise. Set by GETW and by the main program.
PSCAL0: the same at the start of the step. The main program sets it at the start of a run; GETW and BURSMIX copy PSCAL1 into it after burning, for the next step.
Read by LIBURN and LIBURN2, which extend the mixed region below the base of the convection zone by them.

Design

A blanket USE LIOV_MOD.

Definitions

moduleLIOV_MOD

lines 19–27 · GitHub

Used by (5 units)

(file level), BURSMIX, GETW, LIBURN, LIBURN2

Change log

The changes since rp_1

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

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C LIOV_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/LIOV/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 5 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 LIOV_MOD 20 21 IMPLICIT NONE 22 SAVE 23 24 REAL*8 :: PSCAL0 25 REAL*8 :: PSCAL1 26 27 END MODULE LIOV_MOD

1"""Python version of liov_mod.f (YREC 7be4133): the overshoot distance below 2the surface convection zone, for light-element burning, formerly 3COMMON/LIOV/. 4 5Translates: liov_mod.f#LIOV_MOD (7be4133) 6 7Routines that USE LIOV_MOD import this module and write ``liov_mod.<name>``. 8""" 9 10# Fortran lines 24–25. 11pscal0 = 0.0 # overshoot distance (cm) at the start of the step 12pscal1 = 0.0 # overshoot distance (cm) at the end of the step (getw, main)