Changeset 10088 for vendors/AGRIF/CMEMS_2020/LIB/UtilAgrif.c
- Timestamp:
- 2018-09-05T15:35:32+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendors/AGRIF/CMEMS_2020/LIB/UtilAgrif.c
r5656 r10088 150 150 { 151 151 // remove the variable 152 RemoveWordCUR_0(fortran_out,lengthname);152 // RemoveWordCUR_0(fortran_out,lengthname); 153 153 // then write the new name 154 if ( inagrifcallargument == 1 && agrif_parentcall == 0 )155 fprintf(fortran_out,"%d",newvar->var->v_indicetabvars);156 else157 {158 if ( retour77 == 0 )159 fprintf(fortran_out,"Agrif_%s & \n ", tabvarsname(newvar->var));160 else161 {162 fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var));163 fprintf(fortran_out," \n & ");164 }165 fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var));166 }154 // if ( inagrifcallargument == 1 && agrif_parentcall == 0 ) 155 // fprintf(fortran_out,"%d",newvar->var->v_indicetabvars); 156 // else 157 // { 158 // if ( retour77 == 0 ) 159 // fprintf(fortran_out,"Agrif_%s & \n ", tabvarsname(newvar->var)); 160 // else 161 // { 162 // fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var)); 163 // fprintf(fortran_out," \n & "); 164 // } 165 // fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var)); 166 // } 167 167 } 168 168 else
Note: See TracChangeset
for help on using the changeset viewer.