ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/OpenMD/trunk/src/integrators/NPrT.cpp
(Generate patch)

Comparing trunk/src/integrators/NPrT.cpp (file contents):
Revision 538 by tim, Thu May 19 21:31:23 2005 UTC vs.
Revision 927 by tim, Fri Mar 31 18:09:22 2006 UTC

# Line 57 | Line 57 | namespace oopse {
57        painCave.isFatal = 1;
58        simError();
59      } else {
60 <      surfaceTension= simParams->getSurfaceTension();
60 >      surfaceTension= simParams->getSurfaceTension()* OOPSEConstant::surfaceTensorConvert * OOPSEConstant::energyConvert;
61      }
62  
63    }
# Line 67 | Line 67 | namespace oopse {
67      double Axy = hmat(0,0) * hmat(1, 1);
68      double sx = -hz * (press(0, 0) - targetPressure/OOPSEConstant::pressureConvert);
69      double sy = -hz * (press(1, 1) - targetPressure/OOPSEConstant::pressureConvert);
70 <    eta(0,0) -= Axy * (sx - surfaceTension) / (NkBT*tb2);
71 <    eta(1,1) -= Axy * (sy - surfaceTension) / (NkBT*tb2);
70 >    eta(0,0) -= dt2* Axy * (sx - surfaceTension) / (NkBT*tb2);
71 >    eta(1,1) -= dt2* Axy * (sy - surfaceTension) / (NkBT*tb2);
72      eta(2,2) += dt2 *  instaVol * (press(2, 2) - targetPressure/OOPSEConstant::pressureConvert) / (NkBT*tb2);
73      oldEta = eta;  
74    }
# Line 80 | Line 80 | namespace oopse {
80      prevEta = eta;
81      double sx = -hz * (press(0, 0) - targetPressure/OOPSEConstant::pressureConvert);
82      double sy = -hz * (press(1, 1) - targetPressure/OOPSEConstant::pressureConvert);
83 <    eta(0,0) = oldEta(0, 0) - Axy * (sx -surfaceTension) / (NkBT*tb2);
84 <    eta(1,1) = oldEta(1, 1) - Axy * (sy -surfaceTension) / (NkBT*tb2);
83 >    eta(0,0) = oldEta(0, 0) - dt2 * Axy * (sx -surfaceTension) / (NkBT*tb2);
84 >    eta(1,1) = oldEta(1, 1) - dt2 * Axy * (sy -surfaceTension) / (NkBT*tb2);
85      eta(2,2) = oldEta(2, 2) + dt2 *  instaVol *
86              (press(2, 2) - targetPressure/OOPSEConstant::pressureConvert) / (NkBT*tb2);
87    }
# Line 115 | Line 115 | namespace oopse {
115    }
116  
117    void NPrT::scaleSimBox(){
118 –
119 –    int i;
120 –    int j;
121 –    int k;
118      Mat3x3d scaleMat;
123 –    double eta2ij;
124 –    double bigScale, smallScale, offDiagMax;
125 –    Mat3x3d hm;
126 –    Mat3x3d hmnew;
119  
120 +    scaleMat(0, 0) = exp(dt*eta(0, 0));
121 +    scaleMat(1, 1) = exp(dt*eta(1, 1));    
122 +    scaleMat(2, 2) = exp(dt*eta(2, 2));
123 +    Mat3x3d hmat = currentSnapshot_->getHmat();
124 +    hmat = hmat *scaleMat;
125 +    currentSnapshot_->setHmat(hmat);
126  
129 –
130 –    // Scale the box after all the positions have been moved:
131 –
132 –    // Use a taylor expansion for eta products:  Hmat = Hmat . exp(dt * etaMat)
133 –    //  Hmat = Hmat . ( Ident + dt * etaMat  + dt^2 * etaMat*etaMat / 2)
134 –
135 –    bigScale = 1.0;
136 –    smallScale = 1.0;
137 –    offDiagMax = 0.0;
138 –
139 –    for(i=0; i<3; i++){
140 –      for(j=0; j<3; j++){
141 –
142 –        // Calculate the matrix Product of the eta array (we only need
143 –        // the ij element right now):
144 –
145 –        eta2ij = 0.0;
146 –        for(k=0; k<3; k++){
147 –          eta2ij += eta(i, k) * eta(k, j);
148 –        }
149 –
150 –        scaleMat(i, j) = 0.0;
151 –        // identity matrix (see above):
152 –        if (i == j) scaleMat(i, j) = 1.0;
153 –        // Taylor expansion for the exponential truncated at second order:
154 –        scaleMat(i, j) += dt*eta(i, j)  + 0.5*dt*dt*eta2ij;
155 –      
156 –
157 –        if (i != j)
158 –          if (fabs(scaleMat(i, j)) > offDiagMax)
159 –            offDiagMax = fabs(scaleMat(i, j));
160 –      }
161 –
162 –      if (scaleMat(i, i) > bigScale) bigScale = scaleMat(i, i);
163 –      if (scaleMat(i, i) < smallScale) smallScale = scaleMat(i, i);
164 –    }
165 –
166 –    if ((bigScale > 1.01) || (smallScale < 0.99)) {
167 –      sprintf( painCave.errMsg,
168 –               "NPrT error: Attempting a Box scaling of more than 1 percent.\n"
169 –               " Check your tauBarostat, as it is probably too small!\n\n"
170 –               " scaleMat = [%lf\t%lf\t%lf]\n"
171 –               "            [%lf\t%lf\t%lf]\n"
172 –               "            [%lf\t%lf\t%lf]\n"
173 –               "      eta = [%lf\t%lf\t%lf]\n"
174 –               "            [%lf\t%lf\t%lf]\n"
175 –               "            [%lf\t%lf\t%lf]\n",
176 –               scaleMat(0, 0),scaleMat(0, 1),scaleMat(0, 2),
177 –               scaleMat(1, 0),scaleMat(1, 1),scaleMat(1, 2),
178 –               scaleMat(2, 0),scaleMat(2, 1),scaleMat(2, 2),
179 –               eta(0, 0),eta(0, 1),eta(0, 2),
180 –               eta(1, 0),eta(1, 1),eta(1, 2),
181 –               eta(2, 0),eta(2, 1),eta(2, 2));
182 –      painCave.isFatal = 1;
183 –      simError();
184 –    } else if (offDiagMax > 0.01) {
185 –      sprintf( painCave.errMsg,
186 –               "NPrT error: Attempting an off-diagonal Box scaling of more than 1 percent.\n"
187 –               " Check your tauBarostat, as it is probably too small!\n\n"
188 –               " scaleMat = [%lf\t%lf\t%lf]\n"
189 –               "            [%lf\t%lf\t%lf]\n"
190 –               "            [%lf\t%lf\t%lf]\n"
191 –               "      eta = [%lf\t%lf\t%lf]\n"
192 –               "            [%lf\t%lf\t%lf]\n"
193 –               "            [%lf\t%lf\t%lf]\n",
194 –               scaleMat(0, 0),scaleMat(0, 1),scaleMat(0, 2),
195 –               scaleMat(1, 0),scaleMat(1, 1),scaleMat(1, 2),
196 –               scaleMat(2, 0),scaleMat(2, 1),scaleMat(2, 2),
197 –               eta(0, 0),eta(0, 1),eta(0, 2),
198 –               eta(1, 0),eta(1, 1),eta(1, 2),
199 –               eta(2, 0),eta(2, 1),eta(2, 2));
200 –      painCave.isFatal = 1;
201 –      simError();
202 –    } else {
203 –
204 –      Mat3x3d hmat = currentSnapshot_->getHmat();
205 –      hmat = hmat *scaleMat;
206 –      currentSnapshot_->setHmat(hmat);
207 –        
208 –    }
127    }
128  
129    bool NPrT::etaConverged() {
# Line 257 | Line 175 | namespace oopse {
175      double area = hmat(0,0) * hmat(1, 1);
176  
177      double conservedQuantity = totalEnergy + thermostat_kinetic + thermostat_potential +
178 <      barostat_kinetic + barostat_potential - surfaceTension * area;
178 >      barostat_kinetic + barostat_potential - surfaceTension * area/ OOPSEConstant::energyConvert;
179  
180      return conservedQuantity;
181  

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines