Changeset 12812
- Timestamp:
- 07/30/12 07:46:56 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/ModelProcessorx/CreateParameters.cpp
r12761 r12812 97 97 if(isdelta18o){ 98 98 IssmDouble *temp = NULL; 99 IssmDouble yts; 99 100 int N,M; 100 101 101 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsDelta18oEnum); 102 _assert_(N==2); 102 iomodel->Constant(&yts,ConstantsYtsEnum); 103 104 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsDelta18oEnum); _assert_(N==2); 105 for(i=0;i<M;i++) temp[M+i]=yts*temp[M+i]; 103 106 parameters->AddObject(new TransientParam(SurfaceforcingsDelta18oEnum,&temp[0],&temp[M],M)); 104 107 xDelete<IssmDouble>(temp); 105 108 106 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsDelta18oSurfaceEnum); 107 _assert_(N==2);109 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsDelta18oSurfaceEnum); _assert_(N==2); 110 for(i=0;i<M;i++) temp[M+i]=yts*temp[M+i]; 108 111 parameters->AddObject(new TransientParam(SurfaceforcingsDelta18oSurfaceEnum,&temp[0],&temp[M],M)); 109 112 xDelete<IssmDouble>(temp);
Note:
See TracChangeset
for help on using the changeset viewer.