mirror of https://github.com/ecmwf/eccodes.git
20 lines
582 B
Modula-2
20 lines
582 B
Modula-2
# (C) Copyright 2005- ECMWF.
|
|
|
|
# Definition 39 - 4DVar model errors for long window 4Dvar system (inspired by local def 25)
|
|
|
|
unsigned[1] componentIndex : dump;
|
|
alias mars.number=componentIndex;
|
|
unsigned[1] numberOfComponents : dump;
|
|
alias totalNumber=numberOfComponents;
|
|
unsigned[1] modelErrorType : dump;
|
|
|
|
alias local.componentIndex=componentIndex;
|
|
alias local.numberOfComponents=numberOfComponents;
|
|
alias local.modelErrorType=modelErrorType;
|
|
|
|
# Hours
|
|
unsigned[2] offsetToEndOf4DvarWindow : dump;
|
|
unsigned[2] lengthOf4DvarWindow : dump;
|
|
alias anoffset=offsetToEndOf4DvarWindow;
|
|
|