Changeset 6487 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithParameterlist.c
- Timestamp:
- 2016-04-20T11:33:10+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithParameterlist.c
r6486 r6487 47 47 void Add_GlobalParameter_Var_1(listvar *listin) 48 48 { 49 if ( firstpass == 1 ) 50 { 51 if ( VariableIsParameter == 1 ) { 52 List_GlobalParameter_Var = AddListvarToListvar(listin,List_GlobalParameter_Var,1); 53 } 54 } 49 if ( VariableIsParameter ) 50 List_GlobalParameter_Var = AddListvarToListvar(listin, List_GlobalParameter_Var, 1); 55 51 } 56 52 … … 64 60 void Add_Parameter_Var_1(listvar *listin) 65 61 { 66 listvar *parcours;62 listvar *parcours; 67 63 68 if ( firstpass == 1 && VariableIsParameter == 1 )69 { 70 if ( !List_Parameter_Var)71 72 73 74 75 76 77 while (parcours->suiv) parcours=parcours->suiv;78 parcours->suiv = listin;79 }80 }64 if ( !VariableIsParameter ) return; 65 66 if ( List_Parameter_Var == NULL ) 67 { 68 List_Parameter_Var = listin; 69 } 70 else 71 { 72 parcours = List_Parameter_Var; 73 while ( parcours->suiv ) 74 parcours = parcours->suiv; 75 parcours->suiv = listin; 76 } 81 77 } 82 78 … … 92 88 listvar *parcours; 93 89 94 if ( firstpass == 1 ) 95 { 96 if ( !List_Dimension_Var ) 97 { 98 List_Dimension_Var = listin; 99 } 100 else 101 { 102 parcours = List_Dimension_Var; 103 while (parcours->suiv) parcours=parcours->suiv; 104 parcours->suiv = listin; 105 } 106 } 90 if ( List_Dimension_Var == NULL ) 91 { 92 List_Dimension_Var = listin; 93 } 94 else 95 { 96 parcours = List_Dimension_Var; 97 while (parcours->suiv) 98 parcours = parcours->suiv; 99 parcours->suiv = listin; 100 } 107 101 }
Note: See TracChangeset
for help on using the changeset viewer.