disk_mod.f

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

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

Variables on this page (1)

sage

Purpose

DISK_MOD holds SAGE, the star's age, which the rotation routines compare with the disk-locking time, shared by 5 routines. It replaces what is left of COMMON/DISK/ (MHP via Claude, 10/14/26): the disk-locking switch and parameters LDISK, TDISK, PDISK are namelist variables now in NMLPAR_MOD.

What its variable holds, who sets it, who reads it.

SAGE (REAL*8): the total age DAGE (Gyr), stored by the main program after each model ("MHP 9/94 store total age in SAGE"). Read by GETW, SECULR and SOLID, which hold the surface rotation locked while LDISK and SAGE ≤ TDISK, and by MDOT, which with LDISK and accretion shortens the step so that it ends at TDISK.

Design

A blanket USE DISK_MOD. Since SAGE is set after the model is computed, the routines of the next step see the age at the start of that step.

Definitions

moduleDISK_MOD

lines 19–26 · GitHub

Used by (5 units)

(file level), GETW, MDOT, SECULR, SOLID

Change log

The changes since rp_1

Changed since rp_1. New file: SAGE of COMMON/DISK/ as a module; LDISK, TDISK, PDISK moved to NMLPAR_MOD.

1C 2C 3C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 4C DISK_MOD 5C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 6C 10/14/26 MHP via Claude 7C code changed to convert COMMON/DISK/ 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 DISK_MOD 20 21 IMPLICIT NONE 22 SAVE 23 24 REAL*8 :: SAGE 25 26 END MODULE DISK_MOD

1"""Python version of disk_mod.f (YREC 7be4133): the age used for disk 2locking, formerly part of COMMON/DISK/. 3 4Translates: disk_mod.f#DISK_MOD (7be4133) 5 6Routines that USE DISK_MOD import this module and write ``disk_mod.sage``. 7""" 8 9# Fortran line 24. 10sage = 0.0 # total age in Gyr (main, after each model)