blob: 241855548f11f8f6f3b6cb014f7fbde4caf755f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#include "cctk.h"
#include "cctk_Arguments.h"
#include "cctk_Parameters.h"
! Set the stress energy (storage) state grid scalar from the parameter.
subroutine TmunuBase_SetStressEnergyState (CCTK_ARGUMENTS)
implicit none
DECLARE_CCTK_ARGUMENTS
DECLARE_CCTK_PARAMETERS
stress_energy_state = stress_energy_storage
if (support_old_CalcTmunu_mechanism /= 0) then
stress_energy_2_state = stress_energy_state
else
stress_energy_2_state = 0
end if
end subroutine TmunuBase_SetStressEnergyState
|