[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 508)

rhaas at tapir.caltech.edu rhaas at tapir.caltech.edu
Thu Apr 18 13:49:45 CDT 2013


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 at 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



More information about the Commits mailing list