intpar_mod.f

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

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

Variables on this page (3)

imax, nuse, stolr0

Purpose

INTPAR_MOD holds the settings of the Bulirsch–Stoer integration of the atmosphere and envelope, shared by PARMIN, ENVINT and BSSTEP. It replaces COMMON/INTPAR/ (MHP via Claude, 10/14/26), the first of the conversion's DATA migrations: the three defaults come from PARMIN's DATA STOLR0,IMAX,NUSE/1.0D-3,11,7/.

What its variables hold, who sets them, who reads them. All three are in the PHYSICS namelist read by PARMIN, so a run can change them; no routine assigns them.

STOLR0 (REAL*8, 1.0D-3): the integration tolerance. ENVINT uses it as such for the atmosphere and scales it by $|$SENV$|$ for the envelope.
IMAX (INTEGER*4, 11): the largest number of step subdivisions BSSTEP tries.
NUSE (INTEGER*4, 7): the number of points used in BSSTEP's extrapolation to zero step (passed to RATEXT), and the subdivision count that decides the next step.

Design

A blanket USE INTPAR_MOD.

Definitions

moduleINTPAR_MOD

lines 31–40 · GitHub

Used by (3 units)

BSSTEP, ENVINT, PARMIN

Change log

The changes since rp_1

Changed since rp_1. New file: COMMON/INTPAR/ as a module, with its defaults moved from PARMIN's DATA statement.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C INTPAR_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/INTPAR/ into this module. 8C 9C Imported with a blanket USE, the convention for the conversion. 10C All 3 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. 19C 20C The initializers are the first DATA migration of the conversion. They 21C carry over parmin.f's 22C DATA STOLR0,IMAX,NUSE/1.0D-3,11,7/ 23C which had to move, because DATA on a USE-associated name is rejected 24C ("Cannot change attributes of USE-associated symbol"). 25C 26C The semantics are unchanged. All three are PHYSICS namelist variables: 27C the DATA statement supplied the default before the namelist read could 28C override it, and a module initializer is likewise applied once at load 29C time, before PARMIN runs. It is also a standards improvement, since 30C DATA on a COMMON member outside BLOCK DATA is non-standard. 31 MODULE INTPAR_MOD 32 33 IMPLICIT NONE 34 SAVE 35 36 REAL*8 :: STOLR0 = 1.0D-3 37 INTEGER*4 :: IMAX = 11 38 INTEGER*4 :: NUSE = 7 39 40 END MODULE INTPAR_MOD

1"""Python version of intpar_mod.f (YREC 7be4133): the settings of the 2Bulirsch-Stoer integration, formerly COMMON/INTPAR/. 3 4Translates: intpar_mod.f#INTPAR_MOD (7be4133) 5 6Routines that USE INTPAR_MOD import this module and write 7``intpar_mod.<name>``. All three are PHYSICS namelist variables. 8""" 9 10# Fortran lines 36–38. 11stolr0 = 1.0e-3 # integration tolerance (envint) 12imax = 11 # largest number of step subdivisions (bsstep) 13nuse = 7 # points used in the extrapolation (bsstep, ratext)