| [2089] | 1 | MODULE PARCMA |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | #include "tsmbkind.h" |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | SAVE |
|---|
| 9 | |
|---|
| 10 | !* PARCMA - CMA VARIOUS PARAMETERS |
|---|
| 11 | |
|---|
| 12 | ! D. VASILJEVIC ECMWF 19/09/94 |
|---|
| 13 | |
|---|
| 14 | |
|---|
| 15 | ! NAME MEANING |
|---|
| 16 | ! ---- ------- |
|---|
| 17 | |
|---|
| 18 | ! CMA ARRAY/FILE PARAMETERS: |
|---|
| 19 | ! --------------------- |
|---|
| 20 | |
|---|
| 21 | ! JPMXGICL MAX. LEN. OF "GLOBAL" INTEGER CMA ARRAY |
|---|
| 22 | ! JPMXGRCL MAX. LEN. OF "GLOBAL" REAL CMA ARRAY |
|---|
| 23 | ! JPMXICRL MAX. LEN. OF INPUT CMA REPORT |
|---|
| 24 | ! JPMXICHL MAX. LEN. OF INPUT CMA REPORT HEADER |
|---|
| 25 | ! JPMXICBL MAX. LEN. OF INPUT CMA REPORT BODY ENTRY |
|---|
| 26 | ! JPMXICDL MAX. LEN. OF INPUT CMA DDR |
|---|
| 27 | ! JPMXOCRL MAX. LEN. OF OUTPUT CMA REPORT |
|---|
| 28 | ! JPMXOCHL MAX. LEN. OF OUTPUT CMA REPORT HEADER |
|---|
| 29 | ! JPMXOCBL MAX. LEN. OF OUTPUT CMA REPORT BODY ENTRY |
|---|
| 30 | ! JPMXOCDL MAX. LEN. OF OUTPUT CMA DDR |
|---|
| 31 | ! JPMXDEPL MAX. LEN. OF DEPARTURE LIST |
|---|
| 32 | |
|---|
| 33 | INTEGER_M :: JPMXGICL |
|---|
| 34 | INTEGER_M :: JPMXGRCL |
|---|
| 35 | INTEGER_M :: JPMXICRL |
|---|
| 36 | INTEGER_M :: JPMXICHL |
|---|
| 37 | INTEGER_M :: JPMXICBL |
|---|
| 38 | INTEGER_M :: JPMXICDL |
|---|
| 39 | INTEGER_M :: JPMXOCRL |
|---|
| 40 | INTEGER_M :: JPMXOCHL |
|---|
| 41 | INTEGER_M :: JPMXOCBL |
|---|
| 42 | INTEGER_M :: JPMXOCDL |
|---|
| 43 | INTEGER_M :: JPMXDEPL |
|---|
| 44 | PARAMETER (JPMXGICL=1) |
|---|
| 45 | PARAMETER (JPMXGRCL=2000000) |
|---|
| 46 | PARAMETER (JPMXICRL=164811) |
|---|
| 47 | PARAMETER (JPMXICHL=581) |
|---|
| 48 | PARAMETER (JPMXICBL=72) |
|---|
| 49 | PARAMETER (JPMXICDL=3072) |
|---|
| 50 | PARAMETER (JPMXOCRL=164811) |
|---|
| 51 | PARAMETER (JPMXOCHL=581) |
|---|
| 52 | PARAMETER (JPMXOCBL=72) |
|---|
| 53 | PARAMETER (JPMXOCDL=3072) |
|---|
| 54 | PARAMETER (JPMXDEPL=319) |
|---|
| 55 | |
|---|
| 56 | !----------------------------------------------------------------------- |
|---|
| 57 | |
|---|
| 58 | |
|---|
| 59 | ! CMA EVENTS, FLAGS, CODES ETC. PARAMETERS: |
|---|
| 60 | ! ----------------------------------------- |
|---|
| 61 | |
|---|
| 62 | ! JPMXLID MAX. NO. OF LEVEL ID CODES |
|---|
| 63 | ! JPMXPCD MAX. NO. OF PRESSURE CODES |
|---|
| 64 | ! JPMXRE1 MAX. NO. REPORT (PART 1) EVENTS |
|---|
| 65 | ! JPMXRE2 MAX. NO. REPORT (PART 2) EVENTS |
|---|
| 66 | ! JPMXDE1 MAX. NO. DATUM (PART 1) EVENTS |
|---|
| 67 | ! JPMXDE2 MAX. NO. DATUM (PART 2) EVENTS |
|---|
| 68 | ! JPMXRBLE MAX. NO. REPORT BLACKLIST EVENTS |
|---|
| 69 | ! JPMXDBLE MAX. NO. DATUM BLACKLIST EVENTS |
|---|
| 70 | ! JPMXRDF MAX. NO. RDB REPORT FLAGS |
|---|
| 71 | ! JPMXDDF MAX. NO. RDB PRESSURE/VARIABLE FLAGS |
|---|
| 72 | ! JPMXADF MAX. NO. ANALYSIS VARIABLE FLAGS |
|---|
| 73 | ! JPMXSBI1 MAX. NO. OF SATOB I1 CODES |
|---|
| 74 | ! JPMXSBI2 MAX. NO. OF SATOB I2I2 CODES |
|---|
| 75 | ! JPMXSMI2 MAX. NO. OF SATEM I2 CODES |
|---|
| 76 | ! JPMXSMV MAX. NO. OF SATEM V CODES |
|---|
| 77 | ! JPMXSMW MAX. NO. OF SATEM W CODES |
|---|
| 78 | ! JPMXSMX MAX. NO. OF SATEM X CODES |
|---|
| 79 | ! JPMXSMY MAX. NO. OF SATEM Y CODES |
|---|
| 80 | ! JPMXSMA MAX. NO. OF SATEM A CODES |
|---|
| 81 | ! JPMXSMB MAX. NO. OF SATEM B CODES |
|---|
| 82 | ! JPMXSMC MAX. NO. OF SATEM C CODES |
|---|
| 83 | |
|---|
| 84 | INTEGER_M :: JPMXLID |
|---|
| 85 | INTEGER_M :: JPMXPCD |
|---|
| 86 | INTEGER_M :: JPMXRE1 |
|---|
| 87 | INTEGER_M :: JPMXRE2 |
|---|
| 88 | INTEGER_M :: JPMXDE1 |
|---|
| 89 | INTEGER_M :: JPMXDE2 |
|---|
| 90 | INTEGER_M :: JPMXRBLE |
|---|
| 91 | INTEGER_M :: JPMXDBLE |
|---|
| 92 | INTEGER_M :: JPMXRDF |
|---|
| 93 | INTEGER_M :: JPMXDDF |
|---|
| 94 | INTEGER_M :: JPMXADF |
|---|
| 95 | INTEGER_M :: JPMXSBI2 |
|---|
| 96 | INTEGER_M :: JPMXSMI2 |
|---|
| 97 | INTEGER_M :: JPMXSMV |
|---|
| 98 | INTEGER_M :: JPMXSMW |
|---|
| 99 | INTEGER_M :: JPMXSMX |
|---|
| 100 | INTEGER_M :: JPMXSMY |
|---|
| 101 | INTEGER_M :: JPMXSMA |
|---|
| 102 | INTEGER_M :: JPMXSMB |
|---|
| 103 | INTEGER_M :: JPMXSMC |
|---|
| 104 | INTEGER_M :: JPMXSBI1 |
|---|
| 105 | PARAMETER (JPMXLID=9) |
|---|
| 106 | PARAMETER (JPMXPCD=13) |
|---|
| 107 | PARAMETER (JPMXRE1=30) |
|---|
| 108 | PARAMETER (JPMXRE2=30) |
|---|
| 109 | PARAMETER (JPMXDE1=30) |
|---|
| 110 | PARAMETER (JPMXDE2=30) |
|---|
| 111 | PARAMETER (JPMXRBLE=30) |
|---|
| 112 | PARAMETER (JPMXDBLE=30) |
|---|
| 113 | PARAMETER (JPMXRDF=5) |
|---|
| 114 | PARAMETER (JPMXDDF=7) |
|---|
| 115 | PARAMETER (JPMXADF=7) |
|---|
| 116 | PARAMETER (JPMXSBI2=5) |
|---|
| 117 | PARAMETER (JPMXSMI2=4) |
|---|
| 118 | PARAMETER (JPMXSMV=3) |
|---|
| 119 | PARAMETER (JPMXSMW=3) |
|---|
| 120 | PARAMETER (JPMXSMX=5) |
|---|
| 121 | PARAMETER (JPMXSMY=7) |
|---|
| 122 | PARAMETER (JPMXSMA=3) |
|---|
| 123 | PARAMETER (JPMXSMB=3) |
|---|
| 124 | PARAMETER (JPMXSMC=3) |
|---|
| 125 | PARAMETER (JPMXSBI1=5) |
|---|
| 126 | |
|---|
| 127 | !----------------------------------------------------------------------- |
|---|
| 128 | |
|---|
| 129 | ! CMA NO. OF OBS./CODE TYPES, UPDATES, ADD. DEP. ETC. PARAMETERS: |
|---|
| 130 | ! -------------------------------------------------------------- |
|---|
| 131 | |
|---|
| 132 | ! JPMXOTP MAX. NO. OF OBS. TYPES |
|---|
| 133 | ! JPMXOCT MAX. NO. OF OBS. CODE TYPES |
|---|
| 134 | ! JPMXUP MAX. NO. UPDATES |
|---|
| 135 | ! JPMXAD MAX. NO. OF ADDITIONAL DEPARTURES |
|---|
| 136 | ! JPMXVAR MAX. NO. OF CMA VARIABLES |
|---|
| 137 | ! JPMXTOCH MAX. NO. TOVS CHANNELS |
|---|
| 138 | ! JPMXSSCH MAX. NO. SSMI CHANNELS |
|---|
| 139 | ! JPMXTRCH MAX. NO. TRMM CHANNELS |
|---|
| 140 | ! JPXSFPTS MAX. NO. OF SIM. OBS. FILES PER 6HR TIME SLOT |
|---|
| 141 | ! JPXTSL MAX. NO. OF OUTPUT/INPUT TIME SLOTS |
|---|
| 142 | ! JPXCMA MAX. NO. OF OUTPUT/INPUT CMA FILES |
|---|
| 143 | ! JPXSATS MAX. NO. OF SATELLITES |
|---|
| 144 | ! JPXSENSOR MAX. NO. OF SENSOR TYPES FOR 1C RADIANCES |
|---|
| 145 | ! JPSMETSND SENSOR INDICATOR FOR METEOSAT SOUNDER DATA |
|---|
| 146 | |
|---|
| 147 | INTEGER_M :: JPMXOTP |
|---|
| 148 | INTEGER_M :: JPMXOCT |
|---|
| 149 | INTEGER_M :: JPMXUP |
|---|
| 150 | INTEGER_M :: JPMXAD |
|---|
| 151 | INTEGER_M :: JPMXVAR |
|---|
| 152 | INTEGER_M :: JPMXTOCH |
|---|
| 153 | INTEGER_M :: JPMXSSCH |
|---|
| 154 | INTEGER_M :: JPMXTRCH |
|---|
| 155 | INTEGER_M :: JPXTSL |
|---|
| 156 | INTEGER_M :: JPXCMA |
|---|
| 157 | INTEGER_M :: JPXSATS |
|---|
| 158 | INTEGER_M :: JPXSENSOR |
|---|
| 159 | INTEGER_M :: JPSMETSND |
|---|
| 160 | PARAMETER (JPMXOTP=10) |
|---|
| 161 | PARAMETER (JPMXOCT=11) |
|---|
| 162 | PARAMETER (JPMXUP=10) |
|---|
| 163 | PARAMETER (JPMXAD=20) |
|---|
| 164 | PARAMETER (JPMXVAR=70) |
|---|
| 165 | PARAMETER (JPMXTOCH=27) |
|---|
| 166 | PARAMETER (JPMXSSCH=7) |
|---|
| 167 | PARAMETER (JPMXTRCH=9) |
|---|
| 168 | PARAMETER (JPXTSL=25) |
|---|
| 169 | PARAMETER (JPXCMA=1) |
|---|
| 170 | PARAMETER (JPXSATS=6) |
|---|
| 171 | PARAMETER (JPXSENSOR=30) |
|---|
| 172 | PARAMETER (JPSMETSND=20) |
|---|
| 173 | |
|---|
| 174 | !----------------------------------------------------------------------- |
|---|
| 175 | |
|---|
| 176 | END MODULE PARCMA |
|---|
