Changeset 184 for XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_nemo.f90
- Timestamp:
- 04/26/11 13:21:35 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_nemo.f90
r183 r184 24 24 TYPE(XDate) :: init_date_nemo = XDate(1985, 03, 15, 17, 35, 00) 25 25 TYPE(XHandle) :: nemo_style_ctxt = NULLHANDLE 26 TYPE(XHandle) :: temp_mod = NULLHANDLE, & 27 temp_mod_ = NULLHANDLE, & 28 temp_mod__ = NULLHANDLE 26 TYPE(XHandle) :: temp_mod = NULLHANDLE, & 27 temp_mod_ = NULLHANDLE, & 28 temp_mod__ = NULLHANDLE, & 29 temp_mod___ = NULLHANDLE 29 30 30 31 … … 130 131 long_name_ = "le champ 4", & 131 132 grid_ref_ = "simple_grille") 133 134 CALL xml_tree_add(parent_hdl = temp_mod, & 135 parent_type = GFIELD, & 136 child_hdl = temp_mod__, & 137 child_type = EFIELD, & 138 child_id = "champ_3D_k8_average_zoom") 139 140 CALL set_field_attributes(field_hdl = temp_mod__, & 141 ftype = EFIELD, & 142 prec_ = 8, & 143 operation_ = "average", & 144 name_ = "champ5", & 145 standard_name_ = "lechamp5", & 146 long_name_ = "le champ 5", & 147 grid_ref_ = "simple_grille_zoom") 132 148 133 149 CALL xml_tree_add(parent_hdl = temp_mod_, & … … 158 174 159 175 ! ---------> axis_definition 176 160 177 CALL handle_create(temp_mod, GAXIS, "axis_definition") 161 178 CALL xml_tree_add(parent_hdl = temp_mod, & … … 190 207 child_type = GDOMAIN, & 191 208 child_id = "all_domain") 192 193 CALL xml_tree_add(parent_hdl = temp_mod_, &194 parent_type = GDOMAIN, &195 child_hdl = temp_mod ,&196 child_type = EDOMAIN,&197 child_id = "simple_domaine 0")209 210 CALL xml_tree_add(parent_hdl = temp_mod_, & 211 parent_type = GDOMAIN, & 212 child_hdl = temp_mod___, & 213 child_type = GDOMAIN, & 214 child_id = "simple_domaine_grp") 198 215 199 216 IF (rankGrp .EQ. 0) THEN … … 211 228 data_ni = 50 212 229 data_ibegin = 1 213 END IF 214 215 CALL set_domain_attributes(domain_hdl = temp_mod, & 216 ftype = EDOMAIN, & 217 name_ = "domaine0", & 218 standard_name_ = "ledomaine0", & 219 long_name_ = "le domaine 0", & 230 END IF 231 232 CALL set_domain_attributes(domain_hdl = temp_mod___, & 233 ftype = GDOMAIN, & 220 234 lonvalue_ = real_array(1:((jend-jbegin+1)*(iend-ibegin+1))), & 221 235 latvalue_ = real_array(1:((jend-jbegin+1)*(iend-ibegin+1))), & … … 228 242 jend_ = jend, & 229 243 data_ni_ = data_ni, & 230 data_ibegin_ = data_ibegin) 244 data_ibegin_ = data_ibegin) 245 246 CALL xml_tree_add(parent_hdl = temp_mod___,& 247 parent_type = GDOMAIN, & 248 child_hdl = temp_mod, & 249 child_type = EDOMAIN, & 250 child_id = "simple_domaine0") 251 252 CALL set_domain_attributes(domain_hdl = temp_mod, & 253 ftype = EDOMAIN, & 254 name_ = "domaine0", & 255 standard_name_ = "ledomaine0", & 256 long_name_ = "le domaine 0") 257 258 CALL xml_tree_add(parent_hdl = temp_mod___,& 259 parent_type = GDOMAIN, & 260 child_hdl = temp_mod, & 261 child_type = EDOMAIN, & 262 child_id = "simple_domaine0_zoom") 263 264 CALL set_domain_attributes(domain_hdl = temp_mod, & 265 ftype = EDOMAIN, & 266 name_ = "domaine0zoom", & 267 standard_name_ = "ledomaine0zoom", & 268 long_name_ = "le domaine 0 zoom",& 269 zoom_ibegin_ = 21, & 270 zoom_jbegin_ = 5 , & 271 zoom_ni_ = 60, & 272 zoom_nj_ = 15) 231 273 232 274 CALL xml_tree_add(parent_hdl = temp_mod_, & … … 251 293 ftype = EDOMAIN, & 252 294 name_ = "domaine1", & 253 standard_name_ = "ledomaine 0", &295 standard_name_ = "ledomaine1", & 254 296 long_name_ = "le domaine 1", & 255 297 lonvalue_ = real_array(1:((jend-jbegin+1)*(iend-ibegin+1))), & … … 277 319 domain_ref_ = "simple_domaine1", & 278 320 axis_ref_ = "simple_axe") 321 322 CALL xml_tree_add(parent_hdl = temp_mod, & 323 parent_type = GGRID, & 324 child_hdl = temp_mod_, & 325 child_type = EGRID, & 326 child_id = "simple_grille_zoom") 327 328 CALL set_grid_attributes(grid_hdl = temp_mod_, & 329 ftype = EGRID, & 330 name_ = "grille2", & 331 description_ = "la grille 2", & 332 domain_ref_ = "simple_domaine0_zoom", & 333 axis_ref_ = "simple_axe") 279 334 280 335 ! ---------> file_definition … … 299 354 child_hdl = temp_mod__, & 300 355 child_type = EFIELD) 356 357 CALL set_field_attributes(field_hdl = temp_mod__, & 358 ftype = EFIELD, & 359 field_ref_ = "champ_3D_k8_average_zoom") 360 361 CALL xml_tree_add(parent_hdl = temp_mod_, & 362 parent_type = EFILE, & 363 child_hdl = temp_mod__, & 364 child_type = EFIELD) 301 365 302 366 CALL set_field_attributes(field_hdl = temp_mod__, &
Note: See TracChangeset
for help on using the changeset viewer.