User: reisswig Date: 2013/11/15 07:10 PM
Modified: /trunk/src/ NullSHRE_modEta.F90
Log: Fixed a bug in modEta.F90. There was a missing time derivative of g in time derivative of $L = \alpha - g_{ij} \beta^{i} s^{j}$.
File Changes:
Directory: /trunk/src/ ======================
File [modified]: NullSHRE_modEta.F90 Delta lines: +1 -1 =================================================================== --- trunk/src/NullSHRE_modEta.F90 2013-11-15 22:46:10 UTC (rev 33) +++ trunk/src/NullSHRE_modEta.F90 2013-11-16 01:10:11 UTC (rev 34) @@ -92,7 +92,7 @@ delld(4)%d = delld(4)%d & - g(i,j)%d * dbeta(i,4)%d * sa(j)%d& - g(i,j)%d * beta(i)%d * dsa(j,4)%d& - - beta(i)%d * sa(j)%d !*dg(i,j,4)%d + - beta(i)%d * sa(j)%d *dg(i,j,4)%d end do end do