Changeset 173 for codes/icosagcm/trunk
- Timestamp:
- 10/07/13 17:23:54 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/xios_mod.F90
r171 r173 251 251 n=0 252 252 DO ind=1,ndomain 253 253 254 d=>domain(ind) 254 255 … … 323 324 DO ind=1,ndomain 324 325 d=>domain(ind) 325 326 DO j=jj_begin+1,jj_end 327 DO i=ii_begin,ii_end-1 326 CALL swap_dimensions(ind) 327 328 DO j=d%jj_begin+1,d%jj_end 329 DO i=d%ii_begin,d%ii_end-1 328 330 n=n+1 329 331 ij=iim*(j-1)+i … … 332 334 ENDDO 333 335 334 DO j= jj_begin,jj_end-1335 DO i= ii_begin+1,ii_end336 DO j=d%jj_begin,d%jj_end-1 337 DO i=d%ii_begin+1,d%ii_end 336 338 n=n+1 337 339 ij=iim*(j-1)+i … … 346 348 DO ind=1,ndomain 347 349 d=>domain(ind) 348 349 DO j=jj_begin+1,jj_end 350 DO i=ii_begin,ii_end-1 350 CALL swap_dimensions(ind) 351 352 DO j=d%jj_begin+1,d%jj_end 353 DO i=d%ii_begin,d%ii_end-1 351 354 n=n+1 352 355 ij=iim*(j-1)+i … … 355 358 ENDDO 356 359 357 DO j= jj_begin,jj_end-1358 DO i= ii_begin+1,ii_end360 DO j=d%jj_begin,d%jj_end-1 361 DO i=d%ii_begin+1,d%ii_end 359 362 n=n+1 360 363 ij=iim*(j-1)+i … … 369 372 DO ind=1,ndomain 370 373 d=>domain(ind) 371 372 DO j=jj_begin+1,jj_end 373 DO i=ii_begin,ii_end-1 374 CALL swap_dimensions(ind) 375 376 DO j=d%jj_begin+1,d%jj_end 377 DO i=d%ii_begin,d%ii_end-1 374 378 n=n+1 375 379 ij=iim*(j-1)+i … … 378 382 ENDDO 379 383 380 DO j= jj_begin,jj_end-1381 DO i= ii_begin+1,ii_end384 DO j=d%jj_begin,d%jj_end-1 385 DO i=d%ii_begin+1,d%ii_end 382 386 n=n+1 383 387 ij=iim*(j-1)+i
Note: See TracChangeset
for help on using the changeset viewer.