Changeset 13412 for issm/trunk-jpl/src/c/classes/IoModel.cpp
- Timestamp:
- 09/20/12 16:59:40 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/IoModel.cpp
r13376 r13412 228 228 229 229 extern int my_rank; 230 extern int num_procs;231 230 232 231 /*record descriptions; */ 233 232 int record_enum; 234 233 int record_length; 235 int record_code; //1 to 7 number234 int record_code; //1 to 7 number 236 235 237 236 /*records: */ 238 int booleanint=0;239 int integer=0;240 IssmPDouble scalar=0;241 char * string=NULL;242 int string_size;237 int booleanint = 0; 238 int integer = 0; 239 IssmPDouble scalar = 0; 240 char *string = NULL; 241 int string_size; 243 242 244 243 /*Check that some fields have been allocated*/ … … 458 457 459 458 extern int my_rank; 460 extern int num_procs;461 462 459 463 460 /*output: */ … … 488 485 489 486 extern int my_rank; 490 extern int num_procs;491 487 492 488 /*output: */ … … 515 511 void IoModel::FetchData(IssmDouble* pscalar,int data_enum){ 516 512 517 518 513 extern int my_rank; 519 extern int num_procs;520 521 514 522 515 /*output: */ … … 546 539 547 540 extern int my_rank; 548 extern int num_procs;549 550 541 551 542 /*output: */ … … 597 588 598 589 extern int my_rank; 599 extern int num_procs;600 590 int i,j; 601 591 … … 672 662 673 663 extern int my_rank; 674 extern int num_procs;675 664 676 665 /*output: */ … … 737 726 738 727 extern int my_rank; 739 extern int num_procs;740 741 728 int i; 742 729 … … 809 796 810 797 extern int my_rank; 811 extern int num_procs;812 798 813 799 /*output: */ … … 898 884 void IoModel::FetchData(Option** poption,int index){ 899 885 900 extern int my_rank;901 extern int num_procs;902 903 886 /*output: */ 904 int 905 char *name= NULL;887 int code; 888 char *name = NULL; 906 889 907 890 /*First get option name*/ … … 1220 1203 1221 1204 extern int my_rank; 1222 extern int num_procs;1223 1205 1224 1206 int found=0; … … 1315 1297 #ifdef _HAVE_ADOLC_ //cannot come here unless you are running AD mode, from DeclaredIndependents: 1316 1298 extern int my_rank; 1317 extern int num_procs;1318 1299 1319 1300 /*output: */
Note:
See TracChangeset
for help on using the changeset viewer.