diff options
Diffstat (limited to 'src/macro/TRT_guts.h')
| -rw-r--r-- | src/macro/TRT_guts.h | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/macro/TRT_guts.h b/src/macro/TRT_guts.h index 7c18ae9..9eabc3e 100644 --- a/src/macro/TRT_guts.h +++ b/src/macro/TRT_guts.h @@ -18,19 +18,19 @@ TRT_IALP2 = 1D0/TRT_ALP**2 - TRT_TRT = -TRT_TTT*TRT_IALP2+TRT_TXX*UPPERMET_UXX+ - & TRT_TYY*UPPERMET_UYY+TRT_TZZ*UPPERMET_UZZ+2D0*( - & TRT_TXY*UPPERMET_UXY+TRT_TXZ*UPPERMET_UXZ+TRT_TYZ* - & UPPERMET_UYZ) + TRT_TRT = -TRT_TTT*TRT_IALP2+TRT_TXX*UPPERMET_UXX+ \ + TRT_TYY*UPPERMET_UYY+TRT_TZZ*UPPERMET_UZZ+2D0*( \ + TRT_TXY*UPPERMET_UXY+TRT_TXZ*UPPERMET_UXZ+TRT_TYZ* \ + UPPERMET_UYZ) if (shift_state .ne. 0) then - TRT_TRT = TRT_TRT - TRT_IALP2*(TRT_TXX*TRT_BX*TRT_BX - & + TRT_TYY*TRT_BY*TRT_BY + TRT_TZZ*TRT_BZ*TRT_BZ - & + 2D0*(TRT_TXY*TRT_BX*TRT_BY + TRT_TXZ*TRT_BX*TRT_BZ - & + TRT_TYZ*TRT_BY*TRT_BZ -TRT_TTX*TRT_BX -TRT_TTY*TRT_BY - & -TRT_TTZ*TRT_BZ)) + TRT_TRT = TRT_TRT - TRT_IALP2*(TRT_TXX*TRT_BX*TRT_BX \ + + TRT_TYY*TRT_BY*TRT_BY + TRT_TZZ*TRT_BZ*TRT_BZ \ + + 2D0*(TRT_TXY*TRT_BX*TRT_BY + TRT_TXZ*TRT_BX*TRT_BZ \ + + TRT_TYZ*TRT_BY*TRT_BZ -TRT_TTX*TRT_BX -TRT_TTY*TRT_BY \ + -TRT_TTZ*TRT_BZ)) endif |