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

Contents of /MITgcm/eesupp/src/memsync.F

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


Revision 1.4 - (show annotations) (download)
Sun Feb 4 14:38:44 2001 UTC (23 years, 3 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint38, checkpoint40pre2, checkpoint40pre4, pre38tag1, c37_adj, pre38-close, checkpoint39, checkpoint37, checkpoint36, checkpoint35, checkpoint40pre5, checkpoint40
Branch point for: pre38
Changes since 1.3: +2 -1 lines
Made sure each .F and .h file had
the CVS keywords Header and Name at its start.
Most had header but very few currently have Name, so
lots of changes!

1 C $Header: /u/gcmpack/models/MITgcmUV/eesupp/src/memsync.F,v 1.3 1999/05/18 17:39:21 adcroft Exp $
2 C $Name: $
3
4 #include "CPP_EEOPTIONS.h"
5
6 SUBROUTINE MEMSYNC
7
8 C /==========================================================\
9 C | SUBROUTINE MEMSYNC |
10 C | o Place holder for memory sync routine |
11 C |==========================================================|
12 C | This routine is called wherever the code requires |
13 C | that writes performed by one thread or process must |
14 C | be guaranteed visible to other processes and or threads. |
15 C | On SPARC this routine would implement a |
16 C | asm("membar #LoadStore|#StoreStore"); |
17 C | On ALPHA |
18 C | asm("mb"); |
19 C | Note: I have yet to show this is necessary although |
20 C | the Memory Channel writes must need something like|
21 C | this. |
22 C \==========================================================/
23 IMPLICIT NONE
24
25 END

  ViewVC Help
Powered by ViewVC 1.1.22