Changeset 5951 for branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithParameterlist.c
- Timestamp:
- 2015-11-30T12:48:01+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithParameterlist.c
r5950 r5951 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.