PyREC scaffolding (from YREC development, 7be4133)dimensions_mod.f
44 lines · 1 definitions · on GitHub (7be4133)
Python version: dimensions_mod.py, 11 lines, on the right (switch to Python above the code).
Variables on this page (1)
Purpose
DIMENSIONS_MOD holds JSON = 5000, the maximum number of shells in a model, the one structural array dimension shared by the whole code (MHP via Claude, 10/15/26). It replaces the statement PARAMETER(JSON=5000) that 108 files repeated at rp_1; it is not a COMMON block.
Who uses it. 144 files: the routines that dimension arrays by the number of shells, and, since 10/20/26, the 36 block modules sized on JSON (such as DEUTER_MOD), which used to declare private copies. The module must be compiled before them (the Makefile says so).
Design
The header explains what stays out: the dimensions of the input tables (such as NUMT, 70 for the OPAL95 opacities and 85 for the ALEX06 tables of Ferguson et al. 2005) differ between tables and stay PRIVATE in each table's module, and scratch bounds such as NMAX stay local to their routines. A file that gains USE DIMENSIONS_MOD must drop its own PARAMETER(JSON=5000).
Definitions
moduleDIMENSIONS_MOD
Used by (142 units)
(file level), ACDPTH_MOD, ATMSTRUCT_MOD, BSROTMIX, BURSMIX, CALCAD, CCOEFT, CHECKC, CHECKJ, CODIFF, COEFFT, CONVEC, CRRECT, CSPLINE, DADCOEFT, DBURN, DBURNM, DCOEFT, DEUTER_MOD, DIFAD2_MOD, DIFAD3_MOD, DIFAD_MOD, DWMAX_MOD, EGRIDDER_MOD, EGRID_MOD, ENGEB, ENTIME, ENTROP_MOD, ENVINT, ENVSTRUCT_MOD, EQ2MOD, EQBURN, EQUAL_TO_MODEL, FINDSH, FPFT, FUNC, GETFC, GETGRID, GETMODEL2, GETNEWENV, GETQUA, GETROT, GETTAU, GETW, GETYREC7, GET_IMP_DIFFCO, GRAVEZ_MOD, GRSETT, HPOINT, HSOLVE, HSUBP, HTIMER, INTVAR_MOD, KEMCOM, LAX_WENDROF1, LAX_WENDROF2, LIBURN, LIBURN2, LIRATE88, MASSLOSS, MDOT, MDPHY_MOD, MEVAL, MICRODIFF, MICRODIFF_COD, MICRODIFF_ETM, MICRODIFF_MTE, MICRODIFF_RUN, MICRODIFF_SETUP, MIDMOD, MIX, MIXCOM, MIXCZ, MIXGRID, MODEL_TO_EQUAL, MOMI, MWIND, NDIFCOM, NEWRAT_MOD, OLDMOD_MOD, OLDPHY_MOD, OLDRAT_MOD, OLDROT2_MOD, OLDROT_MOD, OSPLIN, OVERSH, OVROT, PHYSIC, PINDEX, PTIME, PUALPHA_MOD, PULSE1_MOD, PUTMODEL2, PUTSTORE, PUTYREC7, QGAUSS, QUADD_MOD, QUADRU_MOD, RATES, REDUCE, ROTDER_MOD, ROTEN_MOD, ROTGRID, ROTMIX, RSCALE, SCONVEC, SCRTCH_MOD, SEARCH, SECULR, SETUPV, SETUP_GRSETT, SHAPE, SLOPES, SOLID, SOUND_MOD, SPLINC, SPLINTD2, SPLIN_MOD, STARIN, STITCH, SURFBC, TAUCAL, TAUINT, TAUINTNEW, TAUKH_MOD, TEMP2_MOD, TEMP_MOD, TRIDIA, TRIDIAG_GS, TRIDI_MOD, VCIRC, VFACT_MOD, VISCOS, WCZIMP, WIND, WRTLST, WRTMIL, WRTMOD, WRTOUT, WTIME, XTIME, YTIME
Change log
The changes since rp_1
Changed since rp_1. New file: the repeated PARAMETER(JSON=5000) as a module.