Changeset 3294 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilListe.c
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilListe.c
r2715 r3294 147 147 Save_Length(curmodulename,6); 148 148 /* Si cette variable a ete initialisee */ 149 if (InitialValueGiven == 1 ) 149 /*RB*/ 150 if ( ! strcmp(InitialValueGiven,"=") ) 151 /*RBend*/ 150 152 { 151 153 strcpy(curvar->v_initialvalue,InitValue); … … 153 155 } 154 156 /* Si cette variable est declaree en save */ 155 if (SaveDeclare == 1 ) { 157 /*RB*/ 158 if (SaveDeclare == 1 && !strcasecmp(curvar->v_typevar,"type")) { 159 /*RBend*/ 156 160 curvar->v_save = 1; 157 161 } … … 399 403 dims = dims->suiv; 400 404 } 401 if ( dimsempty == 1 ) var->v_dimsempty=1; 405 /*RB*/ 406 if ( dimsempty == 1 || GlobalDeclarationType == 1 ) var->v_dimsempty=1; 407 /*RBend*/ 402 408 } 403 409 strcpy(var->v_readedlistdimension,listdimension);
Note: See TracChangeset
for help on using the changeset viewer.