User: rhaas Date: 2013/04/18 01:49 PM

Modified: /trunk/src/ GRHydro_ENOScalars.F90, GRHydro_Scalars.F90, GRHydro_WENOScalars.F90

Log: 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

File Changes:

Directory: /trunk/src/ ======================

File [modified]: GRHydro_ENOScalars.F90 Delta lines: +1 -1 =================================================================== --- trunk/src/GRHydro_ENOScalars.F90 2013-04-18 18:30:02 UTC (rev 507) +++ trunk/src/GRHydro_ENOScalars.F90 2013-04-18 18:49:45 UTC (rev 508) @@ -13,6 +13,6 @@

implicit none

- CCTK_REAL, allocatable :: eno_coeffs(:, :) + CCTK_REAL, allocatable, save :: eno_coeffs(:, :)

end module GRHydro_ENOScalars

File [modified]: GRHydro_Scalars.F90 Delta lines: +4 -4 =================================================================== --- trunk/src/GRHydro_Scalars.F90 2013-04-18 18:30:02 UTC (rev 507) +++ trunk/src/GRHydro_Scalars.F90 2013-04-18 18:49:45 UTC (rev 508) @@ -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

File [modified]: GRHydro_WENOScalars.F90 Delta lines: +2 -2 =================================================================== --- trunk/src/GRHydro_WENOScalars.F90 2013-04-18 18:30:02 UTC (rev 507) +++ trunk/src/GRHydro_WENOScalars.F90 2013-04-18 18:49:45 UTC (rev 508) @@ -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