1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
C
C**** "current.h"
C
C PURPOSE
C _______
C
C This file contains information about gaussian field definitions
C currently held in common blocks.
C
C INTERFACE
C _________
C
C #include "current.h"
C
C Common block usage
C __________________
C
C NIGAUSO - Resolution of input gaussian field definition
C currently held in RIGAUSS, MILLEN.
C NOGAUSO - Resolution of output gaussian field definition
C currently held in ROGAUSS, NOLPTS.
C HIGAUST - Type (R,F,U) of input gaussian field definition
C currently held in RIGAUSS, MILLEN.
C HOGAUST - Type (R,F,U) of output gaussian field definition
C currently held in ROGAUSS, NOLPTS.
C HIGAUST
C HOGAUST
C
C Author
C ______
C
C J.D.Chambers ECMWF Sep 1996
C
C
C MODIFICATIONS
C _____________
C
C None
C
C _______________________________________________________
C
C
COMMON /CURRENT_STATE/ NIGAUSO, NOGAUSO, HIGAUST, HOGAUST
SAVE /CURRENT_STATE/
INTEGER NIGAUSO,NOGAUSO
CHARACTER*1 HIGAUST, HOGAUST
|
