pkg/rbcs/RBCS.h

#ifdef ALLOW_RBCS

CBOP
C    !ROUTINE: RBCS.h
C    !INTERFACE:

C    !DESCRIPTION:
C Contains tracer parameters and input files for 3-D relaxation
C Some of these can be read in from data.rbcs

c number of mask to read
      INTEGER maskLEN
      PARAMETER(maskLEN = 3 )
 
      _RL RBC_mask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,maskLEN)
      _RL RBCtemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL RBCsalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL tauRelaxT
      _RL tauRelaxS
      _RL rbcsForcingPeriod
      _RL rbcsForcingCycle
      INTEGER rbcsIniter
      LOGICAL useRBCtemp
      LOGICAL useRBCsalt
      LOGICAL useRBCptracers
      CHARACTER*(MAX_LEN_FNAM) relaxMaskFile(maskLEN)
      CHARACTER*(MAX_LEN_FNAM) relaxTFile
      CHARACTER*(MAX_LEN_FNAM) relaxSFile
#ifdef ALLOW_PTRACERS
      LOGICAL useRBCptrnum(PTRACERS_num)
      _RL RBC_ptracers(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
     &              PTRACERS_num)
      _RL tauRelaxPTR(PTRACERS_num)
      CHARACTER*(MAX_LEN_FNAM) relaxPtracerFile(PTRACERS_num)
#endif

      COMMON /RBCS_PARM01_R/
     &          tauRelaxT,
     &          tauRelaxS,
     &          rbcsForcingPeriod,
     &          rbcsForcingCycle,
     &          RBC_mask,
     &          RBCtemp,
     &          RBCsalt
      COMMON /RBCS_PARM01_I/
     &          rbcsIniter
      COMMON /RBCS_PARM01_L/
     &          useRBCtemp,
     &          useRBCsalt,
     &          useRBCptracers
      COMMON /RBCS_PARM01_C/
     &          relaxMaskFile,
     &          relaxTFile,
     &          relaxSFile

#ifdef ALLOW_PTRACERS
      COMMON /RBCS_PARM02/
     &          useRBCptrnum,
     &          tauRelaxPTR,
     &          relaxPtracerFile,
     &          RBC_ptracers
#endif

#endif
1	stephd	1.1	#ifdef ALLOW_RBCS
2
3			CBOP
4			C !ROUTINE: RBCS.h
5			C !INTERFACE:
6
7			C !DESCRIPTION:
8	stephd	1.2	C Contains tracer parameters and input files for 3-D relaxation
9	stephd	1.1	C Some of these can be read in from data.rbcs
10	stephd	1.2
11			c number of mask to read
12			INTEGER maskLEN
13			PARAMETER(maskLEN = 3 )
14	stephd	1.1
15	stephd	1.2	_RL RBC_mask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,maskLEN)
16	stephd	1.1	_RL RBCtemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
17			_RL RBCsalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
18	stephd	1.2	_RL tauRelaxT
19			_RL tauRelaxS
20	stephd	1.1	_RL rbcsForcingPeriod
21			_RL rbcsForcingCycle
22			INTEGER rbcsIniter
23			LOGICAL useRBCtemp
24			LOGICAL useRBCsalt
25			LOGICAL useRBCptracers
26	stephd	1.2	CHARACTER*(MAX_LEN_FNAM) relaxMaskFile(maskLEN)
27	stephd	1.1	CHARACTER*(MAX_LEN_FNAM) relaxTFile
28			CHARACTER*(MAX_LEN_FNAM) relaxSFile
29			#ifdef ALLOW_PTRACERS
30			LOGICAL useRBCptrnum(PTRACERS_num)
31			_RL RBC_ptracers(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
32			& PTRACERS_num)
33	stephd	1.2	_RL tauRelaxPTR(PTRACERS_num)
34	stephd	1.1	CHARACTER*(MAX_LEN_FNAM) relaxPtracerFile(PTRACERS_num)
35			#endif
36
37	heimbach	1.3	COMMON /RBCS_PARM01_R/
38	stephd	1.2	& tauRelaxT,
39			& tauRelaxS,
40	stephd	1.1	& rbcsForcingPeriod,
41			& rbcsForcingCycle,
42			& RBC_mask,
43			& RBCtemp,
44	heimbach	1.3	& RBCsalt
45			COMMON /RBCS_PARM01_I/
46			& rbcsIniter
47			COMMON /RBCS_PARM01_L/
48	stephd	1.1	& useRBCtemp,
49			& useRBCsalt,
50			& useRBCptracers
51	heimbach	1.3	COMMON /RBCS_PARM01_C/
52			& relaxMaskFile,
53			& relaxTFile,
54			& relaxSFile
55	stephd	1.1
56			#ifdef ALLOW_PTRACERS
57			COMMON /RBCS_PARM02/
58			& useRBCptrnum,
59	stephd	1.2	& tauRelaxPTR,
60	stephd	1.1	& relaxPtracerFile,
61			& RBC_ptracers
62			#endif
63
64			#endif