1 @Parser PleiadesModel; 2 @Model NbZrCSwellingModelTest; 3 @Author Helfer Thomas; 4 @Date 23 Nov 2007; 5 6 @LocalParameter TabString domains; 7 domains.setDefaultValue("MATRIX","RING"); 8 9 @BindDomainToParameter "domains"; 10 11 @Output s; 12 s.setGlossaryName("SolidSwelling"); 13 s.setDepth(1); 14 15 @LoadingVariable dpaEv; 16 dpaEv.setEntryName("DisplacementPerAtome"); 17 dpaEv.setDepth(1); 18 19 @Input T; 20 T.setGlossaryName("Temperature"); 21 T.setDepth(1); 22 23 @Function compute 24 { 25 const double ddpa = dpaEv-dpaEv_1; 26 const double dpa = 0.5*(dpaEv_1+dpaEv); 27 const double tmp = max(400.,370.56*dpa); 28 const double theta = 0.5*(T_1+T)-273.15; 29 s = s_1 + 1.824e-3*exp(-(theta-800.)*(theta-800.)/tmp)*ddpa; 30 } // end of function compute 31