Index

Rundeck: E6F40

Created: Fri May 17 03:30:27 EDT 2024

aperiod

Module:

File: MODEL_COM.f

Summary: aPERIOD finds a 7 or 12-character name for an accumulation period if the earliest month is NOT the beginning of the 2-6 month period the name will reflect that fact ONLY for 2 or 3-month periods
Author : Reto A. Ruedy
Version:

---

Declaration:

subroutine aperiod (jmon1, jyr1, months, years, moff, adate, ldate)

Variables:

amonth : used from model_com

int_months_per_year : used from timeconstants_mod

jyr1 : integer

month,year of beginning of period 1

jmon1 : integer

month,year of beginning of period 1

jmonl : integer

middle,last month of period

jmonm : integer

middle,last month of period

years : integer

length of 1 period,number of periods

months : integer

length of 1 period,number of periods

moff : integer

= # of months from beginning of period to JMON1 if months<12

yr2 : integer

(end)year of 1st and last period

yr1 : integer

(end)year of 1st and last period

adate : character*12

date string: MONyyr1(-yyr2)

ldate : integer

length of date string (7 or 12)

i5toc4 : character(len=4)