NMC title subroutine.
More...
Go to the source code of this file.
|
| subroutine | climo (cf1, cf2, unit, for, aftbef) |
| | Sets time-averaged titles.
|
| |
| subroutine | line01 (id, mask, ktitle) |
| | Creates the first line of title.
|
| |
| subroutine | line02 (id, mask, ktitle) |
| | Creates the second line of title.
|
| |
| subroutine | line03 (id, ktitle) |
| | Creates the third line of title.
|
| |
| subroutine | setcl (cf2, unit, ktitle) |
| | Encodes time-averaged title.
|
| |
| subroutine | value1 (s, c, e, num) |
| | Creates value1 of surface from ids.
|
| |
| subroutine | w3fp06 (id, ktitle, n) |
| | Provides a title for data fields formulated according to nmc o.n.
|
| |
NMC title subroutine.
- Author
- Ralph Jones
- Date
- 1988-11-28
Definition in file w3fp06.f.
◆ climo()
| subroutine climo |
( |
real |
cf1, |
|
|
real |
cf2, |
|
|
character*4 |
unit, |
|
|
character*5 |
for, |
|
|
character*7 |
aftbef |
|
) |
| |
Sets time-averaged titles.
- Author
- Ralph Jones
- Date
- 1988-11-28 Fills in the first thirteen characters in the title to make the title a time-averaged title.
Program history log:
- Ralph Jones 1988-11-28
- Ralph Jones 1989-11-01 Convert to cray cft77 fortran.
- Parameters
-
| [in] | CF1 | Forecast period length. |
| [in] | CF2 | Length of the average. |
| [in,out] | UNIT |
- [in] Originally set to ' hrs'.
- [out] Set to ' dys' if necessary.
|
| [in,out] | FOR |
- [in] Originally set to ' for '.
- [out] Set to ' ctr '.
|
| [in,out] | AFTBEF |
- [in] Originally set to ' after '.
- [out] Set to ' befor ' if necessary.
|
- Author
- Ralph Jones
- Date
- 1988-11-28
Definition at line 941 of file w3fp06.f.
◆ line01()
| subroutine line01 |
( |
integer(8), dimension(6) |
id, |
|
|
integer(4), dimension(8) |
mask, |
|
|
character * 324 |
ktitle |
|
) |
| |
Creates the first line of title.
- Author
- Ralph Jones
- Date
- 1988-09-02 Creates the fist line of the title from the id words. call by w3fp06() to make 1st line of title. Words 1 to 22.
Program history log:
- Ralph Jones 1988-09-02
- Ralph Jones 1993-02-23 Add q type 157 & 158 (core & tke) to tables.
- Parameters
-
| [in] | ID | Id words (6 integer words) office note 84. |
| [in] | MASK | Mask for unpacking id words (8 integer words). |
| [out] | KTITLE | Character *324 array |
- Author
- Ralph Jones
- Date
- 1988-09-02
Definition at line 69 of file w3fp06.f.
◆ line02()
| subroutine line02 |
( |
integer(8), dimension(6) |
id, |
|
|
integer(4), dimension(8) |
mask, |
|
|
character * 324 |
ktitle |
|
) |
| |
Creates the second line of title.
- Author
- Ralph Jones
- Date
- 1988-11-28 Creates the second line of the title from the id words. called by w3fp06. words 23 to 54.
Program history log:
- Ralph Jones 1988-11-28
- Ralph Jones 1989-11-01 Convert to cray cft77 fortran.
- Ralph Jones 1991-03-01 Changes for big records.
- Parameters
-
| [in] | ID | Id words (6 integer words) office note 84 |
| [in] | MASK | Mask for unpacking id words (8 words) |
| [out] | KTITLE | Title character*324 |
- Author
- Ralph Jones
- Date
- 1988-11-28
Definition at line 807 of file w3fp06.f.
◆ line03()
| subroutine line03 |
( |
integer(8), dimension(6) |
id, |
|
|
character * 324 |
ktitle |
|
) |
| |
Creates the third line of title.
- Author
- Ralph Jones
- Date
- 1988-11-28 Creates the third line of the title from the id words. called by w3fp06 to create words 55 to 81 of the title.
Program history log:
- Ralph Jones 1988-11-28
- Ralph Jones 1990-02-03 Convert to cray cft77 fortran.
- Parameters
-
| [in] | ID | ID words (6 integer) office note 84. |
| [out] | KTITLE | Character*324 array. |
- Author
- Ralph Jones
- Date
- 1988-11-28
Definition at line 895 of file w3fp06.f.
◆ setcl()
| subroutine setcl |
( |
|
cf2, |
|
|
character*4 |
unit, |
|
|
character*324 |
ktitle |
|
) |
| |
Encodes time-averaged title.
- Author
- Ralph Jones
- Date
- 1988-11-28 Encodes the first thirteen characters in the title to make the title a time-averaged title.
Program history log:
- Ralph Jones 1988-11-28
- Ralph Jones 1989-11-01 Convert to cray cft77 fortran.
- Parameters
-
| [in] | CF2 | Length of the forecast period |
| [in] | UNIT | Units for cf2 |
| [in,out] | KTITLE |
- [in] Title to be modified
- [out] Title with the time-averaged included
|
- Author
- Ralph Jones
- Date
- 1988-11-28
Definition at line 1012 of file w3fp06.f.
◆ value1()
| subroutine value1 |
( |
integer |
s, |
|
|
integer |
c, |
|
|
integer |
e, |
|
|
character*8 |
num |
|
) |
| |
Creates value1 of surface from ids.
- Author
- Ralph Jones
- Date
- 1988-11-28 Creates the numerical value for the surface to be built into the first line of the title.
Program history log:
- Ralph Jones 1988-11-28
- Ralph Jones 1989-11-01 Convert to cray cft77 fortran.
- Parameters
-
| [in] | S | Integer number of surface. |
| [in] | C,E | Numerical value of the surface (SURFACE = S * 10 ** E). |
| [out] | NUM | 7 character value of the surface for the title. |
- Author
- Ralph Jones
- Date
- 1988-11-28
Definition at line 745 of file w3fp06.f.
◆ w3fp06()
| subroutine w3fp06 |
( |
integer(8), dimension(6) |
id, |
|
|
character * 324 |
ktitle, |
|
|
|
n |
|
) |
| |
Provides a title for data fields formulated according to nmc o.n.
- the extracted information is converted into up to 81 words and stored at a user provided location.
Program history log:
- Ralph Jones 1988-11-28
- Ralph Jones 1990-02-12 Convert to cray cft77 fortran
- Ralph Jones 1991-04-26 Add q type 23, 136, 137, 71, 159, 75, 118, 119, 24 to tables, changes for big records.
- Ralph Jones 1993-02-23 Add q type 157 & 158 (core & tke) to tables
- Parameters
-
| [in] | N | Integer number of lines of output desired
- = 1 First 88 char. the abbreviated title (line 1 starts at arg2(1))
- = 2 First 216 char. decimal values of the parameters
- = 3 All 324 char., hexidecimal dump of the 12 word field label (line 3 char. 221)
|
| ID,KTITLE | |
- Note
- See NMC O.N. 84 for data field abbreviations.
- Author
- Ralph Jones
- Date
- 1988-11-28
Definition at line 25 of file w3fp06.f.
1.9.8