include file: comnumbr.cdk 99
#if defined (DOC)
!*
! COMMON COMNUMBR - Variables numbering common
! --------------- defined in subroutine SUCMA
!
! (excerpt from YOMNUMBR in ARPEGE/IFS written by
! . D. VASILJEVIC ECMWF 17/10/1984
! . P. UNDEN ECMWF 30/08/1989)
! REVISION:
! . P. KOCLAS CMC 30/08/1993
! VARIABLE NUMBERING ADAPTED TO BURP
! ELEMENT NAMES
! P. Koclas *CMC/AES February 1995:
! Minor modifications
!
! JM Belanger *CMDA/SMC* june 2001
! - Add NBT3 and redefine NVBUM(46) for TOVS LEVEL 1B
! J St-James *CMDA/SMC* July 2003
! - Redefine NVBUM() as the height element for profiler data
! D Anselmo *ARMA/SMC* October 2004
! - Add NEHU,NEHS for LN SPECIFIC HUMIDITY and
! 2M LN SPECIFIC HUMIDITY.
! Y. Yang june 2004
! - Changed jpnbrelem = 57 to 200. nvnumb(1)-(100) are
! hard-coded in sucma, while those after 100 are
! defined by user to accommodate species in order
! to make the code flexible.
! - Removed NEOZ. ozone is instead part of NETR defined
! in comchem.cdk for all consituents
! JM Aparicio *ARMA/SMC* October 2006
! - Add NERF for GPSRO refractivity.
! Y.J. Rochon Junee 2008
! - Addititon of 011200 (NVNUMB(58)) and NEDW
!
!
! VARIABLE / TYPE / MEANING /
! -------- ---- -------
! JPNBRVAR I Number of variable
! NVNUMB(jpnbrvar) I OBS. ARRAY VARIABLES NUMBERING: (burp)
! NVNUMB( 1) = 011003 (U COMPONENT) (m/s)
! " ( 2) = 011004 (V COMPONENT) (m/s)
! " ( 3) =010194 (GEOPOTENTIAL IN J/KG) (z metres)
! " ( 4) =10192 (THICKNESS IN M)
! " ( 5) =29 (RELATIVE HUMIDITY)
! " ( 6) = 9 (PRECITABLE WATER CONTENT)
! " ( 7) =012063 BRIGHTNESS TEMPERATURE 1
! " ( 8) =012001 (TEMPERATURE) (kelvin)
! " ( 9) =12192 (DEW-POINT DEPRESSION) (t-td kelvin)
! " (10) =12004 (2M TEMPERATURE)
! " (11) =12203 (2M DEW-POINT DEPRESSION)
! " (12) =011215 SURFACE U WIND COMPONENT M/S)
! " (13) =011216 SURFACE V N-S WIND COMPONENT M/S)
! " (14) =013210 (NAPIERIAN LOGARITHM OF SPECIFIC HUMIDITY) LN(KG/KG)
! " (15) =013220 (NAPIERIAN LOGARITHM OF 2M SPECIFIC HUMIDITY) LN(KG/KG)
! " (16) =007006 HEIGHT ABOVE STATION (M)
! " (17) =15001 (Total Ozone from TOVS)
! " (18) =64 (CM)
! " (19) =65 (CL)
! " (20) =66 (NH)
! " (21) =67 (NN)
! " (22) =68 (HSHS)
! " (23) =69 (C)
! " (24) =70 (NS)
! " (25) =71 (S)
! " (26) =72 (E)
! " (27) =73 (TGTG)
! " (28) =74 (SPSP)
! " (29) =75 (SPSP)
! " (30) =76 (RS)
! " (31) =77 (ESES)
! " (32) =78 (IS)
! " (33) =79 (TRTR)
! " (34) =80 (RR)
! " (35) =81 (JJ)
! " (36) =82 (VS)
! " (37) =83 (DS)
! " (38) =84 (HWHW)
! " (39) =85 (PWPW)
! " (40) =86 (DWDW)
! " (41) =87 (GENERAL CLOUD GROUP)
! " (42) =88 (RH FROM LOW CLOUDS)
! " (43) =89 (RH FROM MIDDLE CLOUDS)
! " (44) =90 (RH FROM HIGH CLOUDS)
! " (45) =91 (TOTAL AMOUNT OF CLOUDS)
! " (46) =12163 (TOVS LEVEL 1B RADIANCES)
! " (47) =010004(PRESSURE (VERT COORDINATE=Z)) (pascals)
! " (48) =011001(DD (WIND DIRECTION IN RADIANS)) (degrees)
! " (49) =011002(FF (WIND SPEED)) (m/s)
! " (50) =12062 (RAW RADIANCE (BRIGHTNESS
! TEMPERATURE IN K)
! " (51) =008001
! " (52) =008004
! " (53) =010051
! " (54) =011011
! " (55) =011012
! " (56) = 41 (U AT 10M)
! " (57) = 42 (V AT 10M)
! " (58) =011200 (DOPPLER WIND SPEED (m/s))
#endif
integer jpnbrelem
! parameter (jpnbrelem = 58)
parameter (jpnbrelem = 200)
integer NEUU,NEVV,NETT,NEGZ,NEES,NEDZ,NEPP,NEFF,NEDD,NEUS,NEVS
integer NETS,NESS,NEPS,NEFS,NEDS,NEPN,NBT1,NBT2,NBT3,NEHU,NEHS,NEDW
integer NERF
INTEGER NVNUMB(jpnbrelem)
COMMON/COMNNUMBR/ NVNUMB
COMMON/COMNALIAS/ NEUU,NEVV,NETT,NEGZ,NEES,NEDZ,NEPP,NEFF,NEDD
COMMON/COMNALIAS/ NEUS,NEVS,NETS,NESS,NEPS,NEFS,NEDS,NEPN,NBT1,NBT2
COMMON/COMNALIAS/ NBT3,NEHU,NEHS,NEDW,NERF