/[MITgcm]/MITgcm_contrib/ocean_inversion_project/code/PTRACERS.h
ViewVC logotype

Diff of /MITgcm_contrib/ocean_inversion_project/code/PTRACERS.h

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

revision 1.4 by dimitri, Thu Sep 25 03:01:59 2003 UTC revision 1.6 by dimitri, Tue Oct 28 00:27:48 2003 UTC
# Line 21  C NUMBER_OF_PTRACERS defines how many pa Line 21  C NUMBER_OF_PTRACERS defines how many pa
21  C This CPP macro is *only* used in PTRACERS.h to set an integer parameter.  C This CPP macro is *only* used in PTRACERS.h to set an integer parameter.
22  C <Please> do not make use of it elsewhere.  C <Please> do not make use of it elsewhere.
23  C  C
24  C NUMBER_OF_PTRACERS can be defined in CPP_OPTIONS.h, or in the Makefile  C NUMBER_OF_PTRACERS can also be defined in CPP_OPTIONS.h, or in the
25  C with DEFINES=-DNUMBER_OF_PTRACERS=4  C Makefile with DEFINES=-DNUMBER_OF_PTRACERS=4
26  C  C
27  C If NUMBER_OF_PTRACERS is not specified elsewhere and ALLOW_PTRACERS  C If NUMBER_OF_PTRACERS is not specified elsewhere and ALLOW_PTRACERS
28  C is set then NUMBER_OF_PTRACERS is set here (default 1)  C is set then NUMBER_OF_PTRACERS is set here (default 1)
# Line 34  C     Number of tracers Line 34  C     Number of tracers
34        INTEGER PTRACERS_num        INTEGER PTRACERS_num
35        PARAMETER(PTRACERS_num = NUMBER_OF_PTRACERS)        PARAMETER(PTRACERS_num = NUMBER_OF_PTRACERS)
36    
37    C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS
38    C                          are written to post-processing files.
39    
40  C     PTRACERS parameters  C     PTRACERS parameters
41          _RL PTRACERS_taveFreq
42        _RL PTRACERS_diffKh(PTRACERS_num)        _RL PTRACERS_diffKh(PTRACERS_num)
43        _RL PTRACERS_diffK4(PTRACERS_num)        _RL PTRACERS_diffK4(PTRACERS_num)
44        _RL PTRACERS_diffKr(PTRACERS_num)        _RL PTRACERS_diffKr(PTRACERS_num)
# Line 45  C     PTRACERS parameters Line 49  C     PTRACERS parameters
49        LOGICAL PTRACERS_useRecords        LOGICAL PTRACERS_useRecords
50        CHARACTER*(MAX_LEN_FNAM) PTRACERS_initialFile(PTRACERS_num)        CHARACTER*(MAX_LEN_FNAM) PTRACERS_initialFile(PTRACERS_num)
51        COMMON /PTRACERS_PARAMS/        COMMON /PTRACERS_PARAMS/
52         &                   PTRACERS_taveFreq,
53       &                   PTRACERS_diffKh,       &                   PTRACERS_diffKh,
54       &                   PTRACERS_diffK4,       &                   PTRACERS_diffK4,
55       &                   PTRACERS_diffKr,       &                   PTRACERS_diffKr,
# Line 55  C     PTRACERS parameters Line 60  C     PTRACERS parameters
60       &                   PTRACERS_useKPP,       &                   PTRACERS_useKPP,
61       &                   PTRACERS_useRecords       &                   PTRACERS_useRecords
62        NAMELIST /PTRACERS_PARM01/        NAMELIST /PTRACERS_PARM01/
63         &                   PTRACERS_taveFreq,
64       &                   PTRACERS_advScheme,       &                   PTRACERS_advScheme,
65       &                   PTRACERS_diffKh,       &                   PTRACERS_diffKh,
66       &                   PTRACERS_diffK4,       &                   PTRACERS_diffK4,
# Line 90  C                         Takahashi CO2 Line 96  C                         Takahashi CO2
96        _RS pTracerTakahashi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)        _RS pTracerTakahashi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
97        COMMON /PTRACERS_Takahashi/ pTracerTakahashi        COMMON /PTRACERS_Takahashi/ pTracerTakahashi
98    
99    C     pTracerAtmCO2 :: arrays containing atmospheric CO2 concentration
100          integer   pTracerAtm_Nrec
101          PARAMETER(pTracerAtm_Nrec = 492)
102          _RS pTracerAtmYear(pTracerAtm_Nrec)
103          _RS pTracerAtmCO2 (pTracerAtm_Nrec)
104          COMMON /PTRACERS_AtmCO2/ pTracerAtmYear, pTracerAtmCO2
105    
106  CEOP  CEOP
107  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22