dpmix_mod.f

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

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

Variables on this page (3)

iov1, iov2, iovim

Purpose

DPMIX_MOD holds the extent of the overshoot region below a convection zone and the index of the shell being computed, so that TPGRAD can use the adiabatic gradient there; shared by 6 routines. It replaces what is left of COMMON/DPMIX/ (MHP via Claude, 10/14/26): the block's overshoot and semiconvection parameters (DPENV, ALPHAC, ALPHAE, ALPHAM, BETAC, LOVSTC, LOVSTE, LOVSTM, LSEMIC, LADOV, LOVMAX) are namelist variables now in NMLPAR_MOD.

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

IOV1, IOV2 (INTEGER*4): the first and last shells of the overshoot region, set by OVERSH (−1 when there is none; "DBG 8/94 store position of overshoot for adiabatic extension").
IOVIM: the shell for which the gradient is wanted, set just before the call by COEFFT, PHYSIC, QENV and STARIN.
All three are read only by TPGRAD: with LADOV, a radiative shell with IOV1 ≤ IOVIM ≤ IOV2 (and IOVIM ≠ −1) takes $\nabla = \nabla_\mathrm{ad}$.

Design

A blanket USE DPMIX_MOD. The shell index reaches TPGRAD through the module rather than as an argument; QENV, which works in the envelope, sets it too.

Definitions

moduleDPMIX_MOD

lines 19–28 · GitHub

Used by (6 units)

COEFFT, OVERSH, PHYSIC, QENV, STARIN, TPGRAD

Change log

The changes since rp_1

Changed since rp_1. New file: IOV1, IOV2, IOVIM of COMMON/DPMIX/ as a module; the block's parameters moved to NMLPAR_MOD.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C DPMIX_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/DPMIX/ 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 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 DPMIX_MOD 20 21 IMPLICIT NONE 22 SAVE 23 24 INTEGER*4 :: IOV1 25 INTEGER*4 :: IOV2 26 INTEGER*4 :: IOVIM 27 28 END MODULE DPMIX_MOD

1"""Python version of dpmix_mod.f (YREC 7be4133): the overshoot region and 2the current shell, read by tpgrad, formerly part of COMMON/DPMIX/. 3 4Translates: dpmix_mod.f#DPMIX_MOD (7be4133) 5 6Routines that USE DPMIX_MOD import this module and write 7``dpmix_mod.<name>``. 8""" 9 10# Fortran lines 24–26. 11iov1 = 0 # first shell of the overshoot region, -1 if none (oversh) 12iov2 = 0 # last shell of the overshoot region, -1 if none (oversh) 13iovim = 0 # shell whose gradient tpgrad computes (set by its callers)