/[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.2 by dimitri, Tue Sep 23 04:34:23 2003 UTC revision 1.5 by dimitri, Tue Oct 21 03:25:30 2003 UTC
# Line 17  C     Package flag Line 17  C     Package flag
17        logical PTRACERSisON        logical PTRACERSisON
18        COMMON /PTRACERS_PACKAGE/ PTRACERSisON        COMMON /PTRACERS_PACKAGE/ PTRACERSisON
19    
20    C NUMBER_OF_PTRACERS defines how many passive tracers are allocated/exist.
21    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.
23    C
24    C NUMBER_OF_PTRACERS can be defined in CPP_OPTIONS.h, or in the Makefile
25    C with DEFINES=-DNUMBER_OF_PTRACERS=4
26    C
27    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)
29    #ifndef NUMBER_OF_PTRACERS
30    #define NUMBER_OF_PTRACERS 30
31    #endif
32    
33  C     Number of tracers  C     Number of tracers
34        INTEGER PTRACERS_num        INTEGER PTRACERS_num
35        PARAMETER(PTRACERS_num = NUMBER_OF_PTRACERS)        PARAMETER(PTRACERS_num = NUMBER_OF_PTRACERS)
# Line 61  C     gPtrNM1  :: work-space for time-st Line 74  C     gPtrNM1  :: work-space for time-st
74       &              PTRACERS_num)       &              PTRACERS_num)
75        _RL  gPtrNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,        _RL  gPtrNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
76       &              PTRACERS_num)       &              PTRACERS_num)
77        COMMON /PTRACERS_FIELDS/        _RL  surfaceTendencyPtr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,
78       &                   pTracer,       &              PTRACERS_num)
79       &                   gPtr,        COMMON /PTRACERS_FIELDS/
80       &                   gPtrNM1       &              pTracer, gPtr, gPtrNM1, surfaceTendencyPtr
81    
82  C     pTracerMasks :: masks used to define 30 ocean regions  C     pTracerMasks :: masks used to define 30 ocean regions
83  C                     for Gruber's ocean inversion project  C                     for Gruber's ocean inversion project
# Line 77  C                         Takahashi CO2 Line 90  C                         Takahashi CO2
90        _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)
91        COMMON /PTRACERS_Takahashi/ pTracerTakahashi        COMMON /PTRACERS_Takahashi/ pTracerTakahashi
92    
93    C     pTracerAtmCO2 :: arrays containing atmospheric CO2 concentration
94          integer   pTracerAtm_Nrec
95          PARAMETER(pTracerAtm_Nrec = 492)
96          _RS pTracerAtmYear(pTracerAtm_Nrec)
97          _RS pTracerAtmCO2 (pTracerAtm_Nrec)
98          COMMON /PTRACERS_AtmCO2/ pTracerAtmYear, pTracerAtmCO2
99    
100  CEOP  CEOP
101  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22