LMDZ
yomgrb.F90 File Reference

Go to the source code of this file.

Modules

module  yomgrb
 

Variables

integer(kind=jpim), parameter yomgrb::jpn3sp =10
 
integer(kind=jpim), parameter yomgrb::jpn2sp =4
 
integer(kind=jpim), dimension(2) yomgrb::nsec0
 
integer(kind=jpim), dimension(2048) yomgrb::nsec1
 
integer(kind=jpim), dimension(22) yomgrb::nsec2spp
 
integer(kind=jpim), dimension(22) yomgrb::nsec2spm
 
integer(kind=jpim), dimension(2) yomgrb::nsec3
 
integer(kind=jpim), dimension(42) yomgrb::nsec4
 
integer(kind=jpim), dimension(0:jpn3sp) yomgrb::ngrbs3
 
integer(kind=jpim), dimension(0:jpn2sp) yomgrb::ngrbs2
 
integer(kind=jpim), dimension(255) yomgrb::nsteplpp
 
real(kind=jprb), dimension(2) yomgrb::rsec3
 
integer(kind=jpim), dimension(:), allocatable yomgrb::nsec2gg
 
real(kind=jprb), dimension(:), allocatable yomgrb::rsec2
 
integer(kind=jpim), dimension(2) yomgrb::msec0
 
integer(kind=jpim), dimension(2048) yomgrb::msec1
 
integer(kind=jpim), dimension(22) yomgrb::msec2spp
 
integer(kind=jpim), dimension(22) yomgrb::msec2spm
 
integer(kind=jpim), dimension(2) yomgrb::msec3
 
integer(kind=jpim), dimension(42) yomgrb::msec4
 
integer(kind=jpim), dimension(0:jpn3sp) yomgrb::mgrbs3
 
integer(kind=jpim), dimension(0:jpn2sp) yomgrb::mgrbs2
 
real(kind=jprb), dimension(2) yomgrb::ssec3
 
integer(kind=jpim), dimension(:), allocatable yomgrb::msec2gg
 
real(kind=jprb), dimension(:), allocatable yomgrb::ssec2
 
integer(kind=jpim), dimension(:), allocatable yomgrb::ngrbsp2
 
integer(kind=jpim), dimension(:), allocatable yomgrb::ngrbsp3
 
integer(kind=jpim), dimension(:), allocatable yomgrb::ngrbgp2
 
integer(kind=jpim), dimension(:), allocatable yomgrb::ngrbgp3
 
integer(kind=jpim) yomgrb::nlocgrb
 
integer(kind=jpim) yomgrb::ntotens
 
integer(kind=jpim) yomgrb::nensfnb
 
integer(kind=jpim) yomgrb::ncalval
 
integer(kind=jpim) yomgrb::nstream
 
integer(kind=jpim) yomgrb::nsystem
 
integer(kind=jpim) yomgrb::nmethod
 
integer(kind=jpim) yomgrb::nreference
 
integer(kind=jpim) yomgrb::nconsensus
 
integer(kind=jpim) yomgrb::ndwd
 
integer(kind=jpim) yomgrb::nmfr
 
integer(kind=jpim) yomgrb::nncep
 
integer(kind=jpim) yomgrb::nukm
 
integer(kind=jpim) yomgrb::nsmaxnp
 
integer(kind=jpim) yomgrb::nbitssh
 
integer(kind=jpim) yomgrb::nbitsgg
 
integer(kind=jpim) yomgrb::njdiag
 
integer(kind=jpim) yomgrb::njdomai
 
integer(kind=jpim) yomgrb::njiter
 
integer(kind=jpim) yomgrb::mlocgrb
 
integer(kind=jpim) yomgrb::mtotens
 
integer(kind=jpim) yomgrb::mensfnb
 
integer(kind=jpim) yomgrb::msmaxnp
 
integer(kind=jpim) yomgrb::mbitssh
 
integer(kind=jpim) yomgrb::mbitsgg
 
integer(kind=jpim) yomgrb::mjdiag
 
integer(kind=jpim) yomgrb::mjdomai
 
integer(kind=jpim) yomgrb::mjiter
 
integer(kind=jpim) yomgrb::nleg
 
integer(kind=jpim) yomgrb::ngrbth = 3
 
integer(kind=jpim) yomgrb::ngrbaluvp = 15
 
integer(kind=jpim) yomgrb::ngrbaluvd = 16
 
integer(kind=jpim) yomgrb::ngrbalnip = 17
 
integer(kind=jpim) yomgrb::ngrbalnid = 18
 
integer(kind=jpim) yomgrb::ngrbsparc = 20
 
integer(kind=jpim) yomgrb::ngrb21 = 21
 
integer(kind=jpim) yomgrb::ngrb22 = 22
 
integer(kind=jpim) yomgrb::ngrb23 = 23
 
integer(kind=jpim) yomgrb::ngrbcvl = 27
 
integer(kind=jpim) yomgrb::ngrbcvh = 28
 
integer(kind=jpim) yomgrb::ngrbtvl = 29
 
integer(kind=jpim) yomgrb::ngrbtvh = 30
 
integer(kind=jpim) yomgrb::ngrbci = 31
 
integer(kind=jpim) yomgrb::ngrbasn = 32
 
integer(kind=jpim) yomgrb::ngrbrsn = 33
 
integer(kind=jpim) yomgrb::ngrbsst = 34
 
integer(kind=jpim) yomgrb::ngrbistl1 = 35
 
integer(kind=jpim) yomgrb::ngrbistl2 = 36
 
integer(kind=jpim) yomgrb::ngrbistl3 = 37
 
integer(kind=jpim) yomgrb::ngrbistl4 = 38
 
integer(kind=jpim) yomgrb::ngrbswl1 = 39
 
integer(kind=jpim) yomgrb::ngrbswl2 = 40
 
integer(kind=jpim) yomgrb::ngrbswl3 = 41
 
integer(kind=jpim) yomgrb::ngrbswl4 = 42
 
integer(kind=jpim) yomgrb::ngrbes = 44
 
integer(kind=jpim) yomgrb::ngrbsmlt = 45
 
integer(kind=jpim) yomgrb::ngrb10fg = 49
 
integer(kind=jpim) yomgrb::ngrblspf = 50
 
integer(kind=jpim) yomgrb::ngrbmont = 53
 
integer(kind=jpim) yomgrb::ngrbpthpv = 54
 
integer(kind=jpim) yomgrb::ngrbspar = 57
 
integer(kind=jpim) yomgrb::ngrbsuvb = 58
 
integer(kind=jpim) yomgrb::ngrbcape = 59
 
integer(kind=jpim) yomgrb::ngrbpv = 60
 
integer(kind=jpim) yomgrb::ngrbsdfor = 74
 
integer(kind=jpim) yomgrb::ngrbtclw = 78
 
integer(kind=jpim) yomgrb::ngrbtciw = 79
 
integer(kind=jpim) yomgrb::ngrbspd = 80
 
integer(kind=jpim) yomgrb::ngrbsvd = 81
 
integer(kind=jpim) yomgrb::ngrb080 = 80
 
integer(kind=jpim) yomgrb::ngrb081 = 81
 
integer(kind=jpim) yomgrb::ngrbsf6 = 210185
 
integer(kind=jpim) yomgrb::ngrbminxtra = 082
 
integer(kind=jpim) yomgrb::ngrbmaxxtra = 117
 
integer(kind=jpim) yomgrb::ngrb082 = 082
 
integer(kind=jpim) yomgrb::ngrb083 = 083
 
integer(kind=jpim) yomgrb::ngrb084 = 084
 
integer(kind=jpim) yomgrb::ngrb085 = 085
 
integer(kind=jpim) yomgrb::ngrb086 = 086
 
integer(kind=jpim) yomgrb::ngrb087 = 087
 
integer(kind=jpim) yomgrb::ngrb088 = 088
 
integer(kind=jpim) yomgrb::ngrb089 = 089
 
integer(kind=jpim) yomgrb::ngrb090 = 090
 
integer(kind=jpim) yomgrb::ngrb091 = 091
 
integer(kind=jpim) yomgrb::ngrb092 = 092
 
integer(kind=jpim) yomgrb::ngrb093 = 093
 
integer(kind=jpim) yomgrb::ngrb094 = 094
 
integer(kind=jpim) yomgrb::ngrb095 = 095
 
integer(kind=jpim) yomgrb::ngrb096 = 096
 
integer(kind=jpim) yomgrb::ngrb097 = 097
 
integer(kind=jpim) yomgrb::ngrb098 = 098
 
integer(kind=jpim) yomgrb::ngrb099 = 099
 
integer(kind=jpim) yomgrb::ngrb100 = 100
 
integer(kind=jpim) yomgrb::ngrb101 = 101
 
integer(kind=jpim) yomgrb::ngrb102 = 102
 
integer(kind=jpim) yomgrb::ngrb103 = 103
 
integer(kind=jpim) yomgrb::ngrb104 = 104
 
integer(kind=jpim) yomgrb::ngrb105 = 105
 
integer(kind=jpim) yomgrb::ngrb106 = 106
 
integer(kind=jpim) yomgrb::ngrb107 = 107
 
integer(kind=jpim) yomgrb::ngrb108 = 108
 
integer(kind=jpim) yomgrb::ngrb109 = 109
 
integer(kind=jpim) yomgrb::ngrb110 = 110
 
integer(kind=jpim) yomgrb::ngrb111 = 111
 
integer(kind=jpim) yomgrb::ngrb112 = 112
 
integer(kind=jpim) yomgrb::ngrb113 = 113
 
integer(kind=jpim) yomgrb::ngrb114 = 114
 
integer(kind=jpim) yomgrb::ngrb115 = 115
 
integer(kind=jpim) yomgrb::ngrb116 = 116
 
integer(kind=jpim) yomgrb::ngrb117 = 117
 
integer(kind=jpim) yomgrb::ngrb118 = 118
 
integer(kind=jpim) yomgrb::ngrb119 = 119
 
integer(kind=jpim) yomgrb::ngrb120 = 120
 
integer(kind=jpim) yomgrb::ngrbemis = 124
 
integer(kind=jpim) yomgrb::ngrbat = 127
 
integer(kind=jpim) yomgrb::ngrbbv = 128
 
integer(kind=jpim) yomgrb::ngrbz = 129
 
integer(kind=jpim) yomgrb::ngrbt = 130
 
integer(kind=jpim) yomgrb::ngrbu = 131
 
integer(kind=jpim) yomgrb::ngrbv = 132
 
integer(kind=jpim) yomgrb::ngrbq = 133
 
integer(kind=jpim) yomgrb::ngrbsp = 134
 
integer(kind=jpim) yomgrb::ngrbw = 135
 
integer(kind=jpim) yomgrb::ngrbtcw = 136
 
integer(kind=jpim) yomgrb::ngrbtcwv = 137
 
integer(kind=jpim) yomgrb::ngrbvo = 138
 
integer(kind=jpim) yomgrb::ngrbstl1 = 139
 
integer(kind=jpim) yomgrb::ngrbsd = 141
 
integer(kind=jpim) yomgrb::ngrblsp = 142
 
integer(kind=jpim) yomgrb::ngrbcp = 143
 
integer(kind=jpim) yomgrb::ngrbsf = 144
 
integer(kind=jpim) yomgrb::ngrbbld = 145
 
integer(kind=jpim) yomgrb::ngrbsshf = 146
 
integer(kind=jpim) yomgrb::ngrbslhf = 147
 
integer(kind=jpim) yomgrb::ngrbchar = 148
 
integer(kind=jpim) yomgrb::ngrb149 = 149
 
integer(kind=jpim) yomgrb::ngrb150 = 150
 
integer(kind=jpim) yomgrb::ngrbmsl = 151
 
integer(kind=jpim) yomgrb::ngrblnsp = 152
 
integer(kind=jpim) yomgrb::ngrb153 = 153
 
integer(kind=jpim) yomgrb::ngrb154 = 154
 
integer(kind=jpim) yomgrb::ngrbd = 155
 
integer(kind=jpim) yomgrb::ngrbgh = 156
 
integer(kind=jpim) yomgrb::ngrbr = 157
 
integer(kind=jpim) yomgrb::ngrbtsp = 158
 
integer(kind=jpim) yomgrb::ngrbblh = 159
 
integer(kind=jpim) yomgrb::ngrbsdor = 160
 
integer(kind=jpim) yomgrb::ngrbisor = 161
 
integer(kind=jpim) yomgrb::ngrbanor = 162
 
integer(kind=jpim) yomgrb::ngrbslor = 163
 
integer(kind=jpim) yomgrb::ngrbtcc = 164
 
integer(kind=jpim) yomgrb::ngrb10u = 165
 
integer(kind=jpim) yomgrb::ngrb10v = 166
 
integer(kind=jpim) yomgrb::ngrb2t = 167
 
integer(kind=jpim) yomgrb::ngrb2d = 168
 
integer(kind=jpim) yomgrb::ngrbssrd = 169
 
integer(kind=jpim) yomgrb::ngrbstl2 = 170
 
integer(kind=jpim) yomgrb::ngrblsm = 172
 
integer(kind=jpim) yomgrb::ngrbsr = 173
 
integer(kind=jpim) yomgrb::ngrbal = 174
 
integer(kind=jpim) yomgrb::ngrbstrd = 175
 
integer(kind=jpim) yomgrb::ngrbssr = 176
 
integer(kind=jpim) yomgrb::ngrbstr = 177
 
integer(kind=jpim) yomgrb::ngrbtsr = 178
 
integer(kind=jpim) yomgrb::ngrbttr = 179
 
integer(kind=jpim) yomgrb::ngrbewss = 180
 
integer(kind=jpim) yomgrb::ngrbnsss = 181
 
integer(kind=jpim) yomgrb::ngrbe = 182
 
integer(kind=jpim) yomgrb::ngrbstl3 = 183
 
integer(kind=jpim) yomgrb::ngrbccc = 185
 
integer(kind=jpim) yomgrb::ngrblcc = 186
 
integer(kind=jpim) yomgrb::ngrbmcc = 187
 
integer(kind=jpim) yomgrb::ngrbhcc = 188
 
integer(kind=jpim) yomgrb::ngrbsund = 189
 
integer(kind=jpim) yomgrb::ngrbewov = 190
 
integer(kind=jpim) yomgrb::ngrbnsov = 191
 
integer(kind=jpim) yomgrb::ngrbnwov = 192
 
integer(kind=jpim) yomgrb::ngrbneov = 193
 
integer(kind=jpim) yomgrb::ngrbtbt = 194
 
integer(kind=jpim) yomgrb::ngrblgws = 195
 
integer(kind=jpim) yomgrb::ngrbmgws = 196
 
integer(kind=jpim) yomgrb::ngrbgwd = 197
 
integer(kind=jpim) yomgrb::ngrbsrc = 198
 
integer(kind=jpim) yomgrb::ngrbveg = 199
 
integer(kind=jpim) yomgrb::ngrbvso = 200
 
integer(kind=jpim) yomgrb::ngrbmx2t = 201
 
integer(kind=jpim) yomgrb::ngrbmn2t = 202
 
integer(kind=jpim) yomgrb::ngrbo3 = 203
 
integer(kind=jpim) yomgrb::ngrbpaw = 204
 
integer(kind=jpim) yomgrb::ngrbro = 205
 
integer(kind=jpim) yomgrb::ngrbtco3 = 206
 
integer(kind=jpim) yomgrb::ngrb207 = 207
 
integer(kind=jpim) yomgrb::ngrbtsrc = 208
 
integer(kind=jpim) yomgrb::ngrbttrc = 209
 
integer(kind=jpim) yomgrb::ngrbssrc = 210
 
integer(kind=jpim) yomgrb::ngrbstrc = 211
 
integer(kind=jpim) yomgrb::ngrb214 = 214
 
integer(kind=jpim) yomgrb::ngrb215 = 215
 
integer(kind=jpim) yomgrb::ngrb216 = 216
 
integer(kind=jpim) yomgrb::ngrb217 = 217
 
integer(kind=jpim) yomgrb::ngrb218 = 218
 
integer(kind=jpim) yomgrb::ngrb219 = 219
 
integer(kind=jpim) yomgrb::ngrbstinc = 212
 
integer(kind=jpim) yomgrb::ngrbvimd = 213
 
integer(kind=jpim) yomgrb::ngrb222 = 222
 
integer(kind=jpim) yomgrb::ngrb223 = 223
 
integer(kind=jpim) yomgrb::ngrb224 = 224
 
integer(kind=jpim) yomgrb::ngrb225 = 225
 
integer(kind=jpim) yomgrb::ngrb226 = 226
 
integer(kind=jpim) yomgrb::ngrb227 = 227
 
integer(kind=jpim) yomgrb::ngrbtp = 228
 
integer(kind=jpim) yomgrb::ngrbiews = 229
 
integer(kind=jpim) yomgrb::ngrbinss = 230
 
integer(kind=jpim) yomgrb::ngrbishf = 231
 
integer(kind=jpim) yomgrb::ngrbie = 232
 
integer(kind=jpim) yomgrb::ngrblsrh = 234
 
integer(kind=jpim) yomgrb::ngrbskt = 235
 
integer(kind=jpim) yomgrb::ngrbstl4 = 236
 
integer(kind=jpim) yomgrb::ngrbtsn = 238
 
integer(kind=jpim) yomgrb::ngrbcsf = 239
 
integer(kind=jpim) yomgrb::ngrblsf = 240
 
integer(kind=jpim) yomgrb::ngrb241 = 241
 
integer(kind=jpim) yomgrb::ngrb242 = 242
 
integer(kind=jpim) yomgrb::ngrbfal = 243
 
integer(kind=jpim) yomgrb::ngrbfsr = 244
 
integer(kind=jpim) yomgrb::ngrbflsr = 245
 
integer(kind=jpim) yomgrb::ngrbclwc = 246
 
integer(kind=jpim) yomgrb::ngrbciwc = 247
 
integer(kind=jpim) yomgrb::ngrbcc = 248
 
integer(kind=jpim) yomgrb::ngrb249 = 249
 
integer(kind=jpim) yomgrb::ngrb250 = 250
 
integer(kind=jpim) yomgrb::ngrb251 = 251
 
integer(kind=jpim) yomgrb::ngrb252 = 252
 
integer(kind=jpim) yomgrb::ngrb253 = 253
 
integer(kind=jpim) yomgrb::ngrb254 = 254
 
integer(kind=jpim) yomgrb::ngrb255 = 255
 
integer(kind=jpim) yomgrb::ngrbaermr01 =210001
 
integer(kind=jpim) yomgrb::ngrbaermr02 =210002
 
integer(kind=jpim) yomgrb::ngrbaermr03 =210003
 
integer(kind=jpim) yomgrb::ngrbaermr04 =210004
 
integer(kind=jpim) yomgrb::ngrbaermr05 =210005
 
integer(kind=jpim) yomgrb::ngrbaermr06 =210006
 
integer(kind=jpim) yomgrb::ngrbaermr07 =210007
 
integer(kind=jpim) yomgrb::ngrbaermr08 =210008
 
integer(kind=jpim) yomgrb::ngrbaermr09 =210009
 
integer(kind=jpim) yomgrb::ngrbaermr10 =210010
 
integer(kind=jpim) yomgrb::ngrbaermr11 =210011
 
integer(kind=jpim) yomgrb::ngrbaermr12 =210012
 
integer(kind=jpim) yomgrb::ngrbaermr13 =210013
 
integer(kind=jpim) yomgrb::ngrbaermr14 =210014
 
integer(kind=jpim) yomgrb::ngrbaermr15 =210015
 
integer(kind=jpim) yomgrb::ngrbaergn01 =210016
 
integer(kind=jpim) yomgrb::ngrbaergn02 =210017
 
integer(kind=jpim) yomgrb::ngrbaergn03 =210018
 
integer(kind=jpim) yomgrb::ngrbaergn04 =210019
 
integer(kind=jpim) yomgrb::ngrbaergn05 =210020
 
integer(kind=jpim) yomgrb::ngrbaergn06 =210021
 
integer(kind=jpim) yomgrb::ngrbaergn07 =210022
 
integer(kind=jpim) yomgrb::ngrbaergn08 =210023
 
integer(kind=jpim) yomgrb::ngrbaergn09 =210024
 
integer(kind=jpim) yomgrb::ngrbaergn10 =210025
 
integer(kind=jpim) yomgrb::ngrbaergn11 =210026
 
integer(kind=jpim) yomgrb::ngrbaergn12 =210027
 
integer(kind=jpim) yomgrb::ngrbaergn13 =210028
 
integer(kind=jpim) yomgrb::ngrbaergn14 =210029
 
integer(kind=jpim) yomgrb::ngrbaergn15 =210030
 
integer(kind=jpim) yomgrb::ngrbaerls01 =210031
 
integer(kind=jpim) yomgrb::ngrbaerls02 =210032
 
integer(kind=jpim) yomgrb::ngrbaerls03 =210033
 
integer(kind=jpim) yomgrb::ngrbaerls04 =210034
 
integer(kind=jpim) yomgrb::ngrbaerls05 =210035
 
integer(kind=jpim) yomgrb::ngrbaerls06 =210036
 
integer(kind=jpim) yomgrb::ngrbaerls07 =210037
 
integer(kind=jpim) yomgrb::ngrbaerls08 =210038
 
integer(kind=jpim) yomgrb::ngrbaerls09 =210039
 
integer(kind=jpim) yomgrb::ngrbaerls10 =210040
 
integer(kind=jpim) yomgrb::ngrbaerls11 =210041
 
integer(kind=jpim) yomgrb::ngrbaerls12 =210042
 
integer(kind=jpim) yomgrb::ngrbaerls13 =210043
 
integer(kind=jpim) yomgrb::ngrbaerls14 =210044
 
integer(kind=jpim) yomgrb::ngrbaerls15 =210045
 
integer(kind=jpim) yomgrb::ngrbaerpr =210046
 
integer(kind=jpim) yomgrb::ngrbaersm =210047
 
integer(kind=jpim) yomgrb::ngrbaerlg =210048
 
integer(kind=jpim) yomgrb::ngrbaodpr =210049
 
integer(kind=jpim) yomgrb::ngrbaodsm =210050
 
integer(kind=jpim) yomgrb::ngrbaodlg =210051
 
integer(kind=jpim) yomgrb::ngrbaerdep =210052
 
integer(kind=jpim) yomgrb::ngrbaerlts =210053
 
integer(kind=jpim) yomgrb::ngrbaerscc =210054
 
integer(kind=jpim) yomgrb::ngrbco2o = 210067
 
integer(kind=jpim) yomgrb::ngrbco2b = 210068
 
integer(kind=jpim) yomgrb::ngrbco2a = 210069
 
integer(kind=jpim), dimension(jpghg) yomgrb::ngrbghg = (/ 210061, 210062, 210063/)
 
integer(kind=jpim), dimension(jptrac) yomgrb::ngrbtrac = (/ 210181, 210182/)
 
integer(kind=jpim), dimension(jpghg) yomgrb::ngrbtcghg = (/ 210064, 210065, 210066/)
 
integer(kind=jpim), dimension(jptrac) yomgrb::ngrbtctrac = (/ 210183, 210184/)
 
integer(kind=jpim), dimension(jpgrg) yomgrb::ngrbgrg = (/ 210121, 210122, 210123, 210124, 210203/)
 
integer(kind=jpim), dimension(jpgrg) yomgrb::ngrbtcgrg = (/ 210125, 210126, 210127, 210128, 210206/)