[cig-commits] commit: add the command-line option --no-stress-output

[Mercurial]

changeset:   12:54d6b6185e08
user:        Sylvain Barbot <sylbar.vainbot at gmail.com>
date:        Tue Apr 26 17:20:05 2011 -0700
files:       relax.f90 types.f90
description:
add the command-line option --no-stress-output


diff -r 5fd212c54fba -r 54d6b6185e08 relax.f90
--- a/relax.f90	Tue Apr 26 17:01:21 2011 -0700
+++ b/relax.f90	Tue Apr 26 17:20:05 2011 -0700
@@ -367,13 +367,13 @@ PROGRAM relax
      IF (isoutput(in%skip,t,i,in%odt,oi,in%events(e)%time)) THEN
         ! export stress
 #ifdef GRD
-        IF (in%isoutputgrd) THEN
+        IF (in%isoutputgrd .AND. in%isoutputstress) THEN
            CALL exportstressgrd(sig,in%sx1,in%sx2,in%sx3/2,in%dx1,in%dx2,in%dx3, &
                                 in%ozs,in%x0,in%y0,in%wdir,i-1)
         END IF
 #endif
 #ifdef PROJ
-        IF (in%isoutputproj) THEN
+        IF (in%isoutputproj .AND. in%isoutputstress) THEN
            CALL exportstressproj(sig,in%sx1,in%sx2,in%sx3/2,in%dx1,in%dx2,in%dx3,in%ozs, &
                                  in%x0,in%y0,in%lon0,in%lat0,in%zone,in%umult,in%wdir,i-1)
         END IF
diff -r 5fd212c54fba -r 54d6b6185e08 types.f90
--- a/types.f90	Tue Apr 26 17:01:21 2011 -0700
+++ b/types.f90	Tue Apr 26 17:20:05 2011 -0700
@@ -179,6 +179,7 @@ MODULE types
      LOGICAL :: isoutputvtk=.TRUE.
      LOGICAL :: isoutputgrd=.TRUE.
      LOGICAL :: isoutputxyz=.TRUE.
+     LOGICAL :: isoutputstress=.TRUE.
 
      ! other options
      LOGICAL :: isdryrun=.FALSE.