ctol_mod.f

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

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

Variables on this page (1)

fcorr

Purpose

CTOL_MOD holds FCORR, the fraction of the Henyey correction applied in the current iteration, shared by the main program and CRRECT. It replaces what is left of COMMON/CTOL/ (MHP via Claude, 10/14/26): the block's tolerances and iteration limits (HTOLER, FCORR0, FCORRI, HPTTOL, NITER1–NITER3) are namelist variables now in NMLPAR_MOD.

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

FCORR (REAL*8): the main program sets it to $|\mathtt{FCORR0}| - \mathtt{FCORRI}$ at the start of each model; CRRECT raises it by FCORRI per iteration, up to 1 (when FCORR0 > 0), and scales the corrections by it.

Design

A blanket USE CTOL_MOD in both routines.

Definitions

moduleCTOL_MOD

lines 19–26 · GitHub

Used by (2 units)

(file level), CRRECT

Change log

The changes since rp_1

Changed since rp_1. New file: FCORR of COMMON/CTOL/ as a module; the block's other members moved to NMLPAR_MOD.

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

1"""Python version of ctol_mod.f (YREC 7be4133): the fraction of the Henyey 2correction applied, formerly part of COMMON/CTOL/. 3 4Translates: ctol_mod.f#CTOL_MOD (7be4133) 5 6Routines that USE CTOL_MOD import this module and write ``ctol_mod.fcorr``. 7""" 8 9# Fortran line 24. 10fcorr = 0.0 # set by main each model, raised by crrect each iteration