| 1 |
C $Header: /u/gcmpack/models/MITgcmUV/eesupp/src/fool_the_compiler.F,v 1.6 2001/09/21 03:54:35 cnh Exp $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
#include "CPP_EEOPTIONS.h" |
| 5 |
|
| 6 |
CBOP |
| 7 |
|
| 8 |
C !ROUTINE: FOOL_THE_COMPILER |
| 9 |
|
| 10 |
C !INTERFACE: |
| 11 |
SUBROUTINE FOOL_THE_COMPILER( foolishArg ) |
| 12 |
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 |
| 26 |
END |