model/src/set_write_global_pickup.F

C $Header: /u/gcmpack/MITgcm/model/src/set_write_global_pickup.F,v 1.1 2007/01/09 18:09:27 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: SET_WRITE_GLOBAL_PICKUP
C     !INTERFACE:
      SUBROUTINE SET_WRITE_GLOBAL_PICKUP( flag )

C     !DESCRIPTION:
C     Sets an internal logical state to indicate whether files written
C     by subsequent calls to the READ_WRITE_FLD package should create
C     "global" or "tiled" files:
C     \begin{center}
C       \begin{tabular}[h]{|l|l|}\hline
C         \texttt{flag}  &  Meaning  \\\hline
C         \texttt{.TRUE.}  &  use ``global'' files  \\
C         \texttt{.TRUE.}  &  use ``tiled'' files  \\\hline
C       \end{tabular}
C     \end{center}

C     !USES:
      IMPLICIT NONE

C     !INPUT PARAMETERS:
      LOGICAL flag
CEOP
      COMMON /PCKP_GBLFLS/ globalFile
      LOGICAL globalFile

      globalFile = flag

      RETURN
      END
1	jmc	1.2	C $Header: /u/gcmpack/MITgcm/model/src/set_write_global_pickup.F,v 1.1 2007/01/09 18:09:27 jmc Exp $
2	jmc	1.1	C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7			CBOP
8			C !ROUTINE: SET_WRITE_GLOBAL_PICKUP
9			C !INTERFACE:
10			SUBROUTINE SET_WRITE_GLOBAL_PICKUP( flag )
11
12			C !DESCRIPTION:
13			C Sets an internal logical state to indicate whether files written
14			C by subsequent calls to the READ_WRITE_FLD package should create
15			C "global" or "tiled" files:
16			C \begin{center}
17			C \begin{tabular}[h]{\|l\|l\|}\hline
18			C \texttt{flag} & Meaning \\\hline
19			C \texttt{.TRUE.} & use ``global'' files \\
20			C \texttt{.TRUE.} & use ``tiled'' files \\\hline
21			C \end{tabular}
22			C \end{center}
23
24			C !USES:
25			IMPLICIT NONE
26
27			C !INPUT PARAMETERS:
28			LOGICAL flag
29			CEOP
30			COMMON /PCKP_GBLFLS/ globalFile
31			LOGICAL globalFile
32
33			globalFile = flag
34
35			RETURN
36			END