2) The second is in GRIBIT
before the line
C FILL PDS PARAMETERS
add following line
C FIX YEAR AND CENTURY
IYR4=IYR
IF(IYR.LE.100) IYR4=2050-MOD(2050-IYR,100)
IYC=MOD(IYR4-1,100)+1
ICY=(IYR4-1)/100+1
Then
change
IPDS(12)=IYR
! YEAR OF CENTURY
to
IPDS(12)=IYC
! YEAR OF CENTURY
And change
IPDS(23)=20
! CENTURY
to
IPDS(23)=ICY
! CENTURY
That's all.
However, this fix is for two digit year up to year 2050,
we suggest the input files should have 4 (or say full) digits of year.
If full digit year is used, this fix can be forever, and the IF statement
can be deleted.