diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-04-18 18:49:45 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-04-18 18:49:45 +0000 |
commit | c0c3fc9a92ff79ec8f5fa30d362a05924a31f585 (patch) | |
tree | 320aac08446c4d3a3321be1c876907c745b90b6d | |
parent | f472b6ed6ed46b64bad1c32901e2619f71cbeb3c (diff) |
GRHydro: add SAVE attribute to module variables
I forgot the SAVE options since my initial google search seemed to
indicate that they are redundant. It turns out that is only true for
Fortran 2008 and an earlier Fortran compiler would in theory be free do
have variables use their values once the last procedure using the module
goes out of scope. This seems to be not done by any compiler though.
From: Roland Haas <rhaas@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@508 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | src/GRHydro_ENOScalars.F90 | 2 | ||||
-rw-r--r-- | src/GRHydro_Scalars.F90 | 8 | ||||
-rw-r--r-- | src/GRHydro_WENOScalars.F90 | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/src/GRHydro_ENOScalars.F90 b/src/GRHydro_ENOScalars.F90 index eab1a97..6dcf042 100644 --- a/src/GRHydro_ENOScalars.F90 +++ b/src/GRHydro_ENOScalars.F90 @@ -13,6 +13,6 @@ implicit none - CCTK_REAL, allocatable :: eno_coeffs(:, :) + CCTK_REAL, allocatable, save :: eno_coeffs(:, :) end module GRHydro_ENOScalars diff --git a/src/GRHydro_Scalars.F90 b/src/GRHydro_Scalars.F90 index 0bc658f..d783713 100644 --- a/src/GRHydro_Scalars.F90 +++ b/src/GRHydro_Scalars.F90 @@ -14,10 +14,10 @@ implicit none - LOGICAL :: MINMOD, MC2, SUPERBEE, PPM3, PPM4 - LOGICAL :: ANALYTICAL - LOGICAL :: FAST - LOGICAL :: HLLE, LLF + LOGICAL, SAVE :: MINMOD, MC2, SUPERBEE, PPM3, PPM4 + LOGICAL, SAVE :: ANALYTICAL + LOGICAL, SAVE :: FAST + LOGICAL, SAVE :: HLLE, LLF end module GRHydro_Scalars diff --git a/src/GRHydro_WENOScalars.F90 b/src/GRHydro_WENOScalars.F90 index 804a9ad..e3feedc 100644 --- a/src/GRHydro_WENOScalars.F90 +++ b/src/GRHydro_WENOScalars.F90 @@ -13,7 +13,7 @@ implicit none - CCTK_REAL, allocatable :: weno_coeffs(:, :) - CCTK_REAL, allocatable :: beta_shu(:, :) + CCTK_REAL, allocatable, save :: weno_coeffs(:, :) + CCTK_REAL, allocatable, save :: beta_shu(:, :) end module GRHydro_WENOScalars |