Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

aperiod

Module: MDIAG_COM

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)

Variables:

amonth : used from model_com

int_months_per_year : used from timeconstants_mod

sync_param : used from dictionary_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 : type(accumulationperiod), intent(out)

date string: MONyyr1(-yyr2)

i5toc4 : character(len=4)

nd : integer

Initial Value = 4

year_fmt : character(len=6)

year_str : character(len=:), allocatable