Changeset 19268
- Timestamp:
- 04/07/15 16:10:07 (10 years ago)
- Location:
- issm/trunk-jpl/src/c
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/ModelProcessorx/CreateParameters.cpp
r19236 r19268 119 119 if(ismungsm){ 120 120 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsPfacEnum); _assert_(N==2); 121 for(i=0;i<M;i++) temp[M+i]=temp[M+i];122 121 parameters->AddObject(new TransientParam(SurfaceforcingsPfacEnum,&temp[0],&temp[M],interp,M)); 123 122 iomodel->DeleteData(temp,SurfaceforcingsPfacEnum); 124 123 125 124 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsTdiffEnum); _assert_(N==2); 126 for(i=0;i<M;i++) temp[M+i]=temp[M+i];127 125 parameters->AddObject(new TransientParam(SurfaceforcingsTdiffEnum,&temp[0],&temp[M],interp,M)); 128 126 iomodel->DeleteData(temp,SurfaceforcingsTdiffEnum); 129 127 130 128 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsSealevEnum); _assert_(N==2); 131 for(i=0;i<M;i++) temp[M+i]=temp[M+i];132 129 parameters->AddObject(new TransientParam(SurfaceforcingsSealevEnum,&temp[0],&temp[M],interp,M)); 133 130 iomodel->DeleteData(temp,SurfaceforcingsSealevEnum); 134 131 } 135 132 if(isdelta18o){ 136 iomodel->Constant(&yts,ConstantsYtsEnum);137 138 133 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsDelta18oEnum); _assert_(N==2); 139 for(i=0;i<M;i++) temp[M+i]=yts*temp[M+i];140 134 parameters->AddObject(new TransientParam(SurfaceforcingsDelta18oEnum,&temp[0],&temp[M],interp,M)); 141 135 iomodel->DeleteData(temp,SurfaceforcingsDelta18oEnum); 142 136 143 137 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsDelta18oSurfaceEnum); _assert_(N==2); 144 for(i=0;i<M;i++) temp[M+i]=yts*temp[M+i];145 138 parameters->AddObject(new TransientParam(SurfaceforcingsDelta18oSurfaceEnum,&temp[0],&temp[M],interp,M)); 146 139 iomodel->DeleteData(temp,SurfaceforcingsDelta18oSurfaceEnum); … … 158 151 iomodel->Constant(&isd18opd,SurfaceforcingsIsd18opdEnum); 159 152 if(isd18opd){ 160 iomodel->Constant(&yts,ConstantsYtsEnum);161 162 153 iomodel->FetchData(&temp,&N,&M,SurfaceforcingsDelta18oEnum); _assert_(N==2); 163 for(i=0;i<M;i++) temp[M+i]=yts*temp[M+i];164 154 parameters->AddObject(new TransientParam(SurfaceforcingsDelta18oEnum,&temp[0],&temp[M],interp,M)); 165 155 iomodel->DeleteData(temp,SurfaceforcingsDelta18oEnum); -
issm/trunk-jpl/src/c/shared/Elements/ComputeMungsmTemperaturePrecipitation.cpp
r18969 r19268 21 21 monthlytemperaturestmp[imonth] = tdiffh + TemperaturesPresentday[imonth] ; 22 22 23 monthlyprectmp[imonth] =min(1.5, PrecipitationsPresentday[imonth] * pow(PrecipitationsLgm[imonth],PfacTime)); // [m/ month]23 monthlyprectmp[imonth] =min(1.5, PrecipitationsPresentday[imonth] * pow(PrecipitationsLgm[imonth],PfacTime)); // [m/yr] 24 24 25 25 /*Assign output pointer*/
Note:
See TracChangeset
for help on using the changeset viewer.