Changeset 180 for XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_nemo.f90
- Timestamp:
- 04/19/11 15:06:51 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_nemo.f90
r179 r180 21 21 REAL(kind = 8), DIMENSION(10000) :: real_array 22 22 INTEGER :: rankGrp, error 23 INTEGER :: ibegin, iend, jbegin, jend 23 INTEGER :: ibegin, iend, jbegin, jend, data_ni, data_ibegin 24 24 TYPE(XDate) :: init_date_nemo = XDate(1985, 03, 15, 17, 35, 00) 25 25 TYPE(XHandle) :: nemo_style_ctxt = NULLHANDLE … … 27 27 temp_mod_ = NULLHANDLE, & 28 28 temp_mod__ = NULLHANDLE 29 30 29 31 30 32 CALL MPI_COMM_RANK(comm_client, rankGrp, error) … … 197 199 IF (rankGrp .EQ. 0) THEN 198 200 ibegin = 1 199 iend = 5 0201 iend = 51 200 202 jbegin = 1 201 203 jend = 50 204 data_ni = 50 205 data_ibegin = 0 202 206 ELSE IF (rankGrp .EQ. 1) THEN 203 ibegin = 5 1207 ibegin = 50 204 208 iend = 100 205 209 jbegin = 1 206 210 jend = 50 211 data_ni = 50 212 data_ibegin = 1 207 213 END IF 208 214 … … 220 226 iend_ = iend, & 221 227 jbegin_ = jbegin, & 222 jend_ = jend) 228 jend_ = jend, & 229 data_ni_ = data_ni, & 230 data_ibegin_ = data_ibegin) 223 231 224 232 CALL xml_tree_add(parent_hdl = temp_mod_, & … … 232 240 iend = 90 233 241 jbegin = 1 234 jend = 10 242 jend = 10 235 243 ELSE IF (rankGrp .EQ. 1) THEN 236 244 ibegin = 1 … … 249 257 data_dim_ = 2, & 250 258 ni_glo_ = 90, & 251 nj_glo_ = 40, &259 nj_glo_ = 20, & 252 260 ibegin_ = ibegin, & 253 261 iend_ = iend, &
Note: See TracChangeset
for help on using the changeset viewer.