Page MenuHomec4science

memsync.F
No OneTemporary

File Metadata

Created
Mon, Jul 7, 07:40

memsync.F

C $Header: /u/gcmpack/MITgcm/eesupp/src/memsync.F,v 1.6 2004/03/27 03:51:51 edhill Exp $
C $Name: $
#include "CPP_EEOPTIONS.h"
CBOP
C !ROUTINE: MEMSYNC
C !INTERFACE:
SUBROUTINE MEMSYNC
IMPLICIT NONE
C !DESCRIPTION:
C *==========================================================*
C | SUBROUTINE MEMSYNC
C | o Place holder for memory sync routine
C *==========================================================*
C | This routine is called wherever the code requires
C | that writes performed by one thread or process must
C | be guaranteed visible to other processes and or threads.
C | On SPARC this routine would implement a
C | asm("membar \#LoadStore|\#StoreStore");
C | On ALPHA
C | asm("mb");
C | Note: I have yet to show this is necessary although
C | the Memory Channel writes must need something like
C | this.
C *==========================================================*
CEOP
END

Event Timeline