/[MITgcm]/MITgcm/eesupp/src/fool_the_compiler.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/fool_the_compiler.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by adcroft, Mon May 24 15:15:11 1999 UTC revision 1.7 by adcroft, Thu Oct 10 20:07:37 2002 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6         SUBROUTINE FOOL_THE_COMPILER  CBOP
7    
8    C      !ROUTINE: FOOL_THE_COMPILER
9    
10    C      !INTERFACE:
11           SUBROUTINE FOOL_THE_COMPILER( foolishArg )
12         IMPLICIT NONE         IMPLICIT NONE
13    C      !DESCRIPTION:
14    C      *=================================================================*
15    C      | SUBROUTINE FOOL_THE_COMPILER                                    |
16    C      | o Dummy routine used to supress compiler behavior.              |
17    C      *=================================================================*
18    C      | Routine is used to stop compiler optimizations in which global  |
19    C      | data is held in a register while it is updated by a separate    |
20    C      | thread. Calling this routine introduces the possibility of side |
21    C      | effects on global data ensuring that memory locs. are reread.   |
22    C      *=================================================================*
23    CEOP
24           INTEGER foolishArg
25         RETURN         RETURN
26         END         END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22