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

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

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

Revision 1.9 - (hide annotations) (download)
Sun Aug 2 20:16:14 2009 UTC (14 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62c, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint63g, checkpoint64, checkpoint62, checkpoint63, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint62b, checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint61v, checkpoint61w, checkpoint61u, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.8: +35 -7 lines 
changed to pass when compiling with strick checking of arguments across S/R
1 jmc 1.9 C $Header: /u/gcmpack/MITgcm/eesupp/src/fool_the_compiler.F,v 1.8 2004/03/27 03:51:51 edhill Exp $
2 cnh 1.6 C $Name: $
3 adcroft 1.3
4     #include "CPP_EEOPTIONS.h"
5 cnh 1.1
6 jmc 1.9 C-- File fool_the_compiler.F: Routines to prevent compiler to skip pieces of code
7     C-- Contents
8     C-- o FOOL_THE_COMPILER
9     C-- o FOOL_THE_COMPILER_R8
10    
11     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
12 cnh 1.6 CBOP
13    
14     C !ROUTINE: FOOL_THE_COMPILER
15    
16     C !INTERFACE:
17 adcroft 1.7 SUBROUTINE FOOL_THE_COMPILER( foolishArg )
18 adcroft 1.4 IMPLICIT NONE
19 cnh 1.6 C !DESCRIPTION:
20     C *=================================================================*
21 jmc 1.9 C | SUBROUTINE FOOL\_THE\_COMPILER
22     C | o Dummy routine used to supress compiler behavior.
23 cnh 1.6 C *=================================================================*
24 jmc 1.9 C | Routine is used to stop compiler optimizations in which global
25     C | data is held in a register while it is updated by a separate
26     C | thread. Calling this routine introduces the possibility of side
27     C | effects on global data ensuring that memory locs. are reread.
28 cnh 1.6 C *=================================================================*
29     CEOP
30 adcroft 1.7 INTEGER foolishArg
31 cnh 1.1 RETURN
32     END
33 jmc 1.9 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
34     CBOP
35    
36     C !ROUTINE: FOOL_THE_COMPILER_R8
37    
38     C !INTERFACE:
39     SUBROUTINE FOOL_THE_COMPILER_R8( foolishArg )
40     IMPLICIT NONE
41     C !DESCRIPTION:
42     C *=================================================================*
43     C | SUBROUTINE FOOL\_THE\_COMPILER\_R8
44     C | o Dummy routine used to supress compiler behavior.
45     C *=================================================================*
46     C | Routine is used to stop compiler optimizations in which global
47     C | data is held in a register while it is updated by a separate
48     C | thread. Calling this routine introduces the possibility of side
49     C | effects on global data ensuring that memory locs. are reread.
50     C *=================================================================*
51     CEOP
52     Real*8 foolishArg
53     RETURN
54     END
  ViewVC Help
Powered by ViewVC 1.1.22