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