/[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.1 by dimitri, Thu Sep 18 02:33:38 2003 UTC revision 1.3 by dimitri, Wed Sep 24 04:52:38 2003 UTC
# Line 10  C #include PTRACERS.h Line 10  C #include PTRACERS.h
10    
11  C    !DESCRIPTION:  C    !DESCRIPTION:
12  C Contains passive tracer fields and parameters.  C Contains passive tracer fields and parameters.
13  cdm   This file is customized to compute CO2 perturbations from 30 ocean  C This file is customized to compute CO2 perturbations from
14  cdm   regions for Gruber's ocean inversion project.  C 30 ocean regions for Gruber's ocean inversion project.
15    
16  C     Package flag  C     Package flag
17        logical PTRACERSisON        logical PTRACERSisON
# Line 61  C     gPtrNM1  :: work-space for time-st Line 61  C     gPtrNM1  :: work-space for time-st
61       &              PTRACERS_num)       &              PTRACERS_num)
62        _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,
63       &              PTRACERS_num)       &              PTRACERS_num)
64        COMMON /PTRACERS_FIELDS/        _RL  surfaceTendencyPtr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,
65       &                   pTracer,       &              PTRACERS_num)
66       &                   gPtr,        COMMON /PTRACERS_FIELDS/
67       &                   gPtrNM1       &              pTracer, gPtr, gPtrNM1, surfaceTendencyPtr
68    
69  cdm   pTracerMasks :: masks used to define 30 ocean regions  C     pTracerMasks :: masks used to define 30 ocean regions
70  cdm                   for Gruber's ocean inversion project  C                     for Gruber's ocean inversion project
71        INTEGER pTracerMasks(1-OLx:sNx+OLx,1-OLy:sNy+OLy,        INTEGER pTracerMasks(1-OLx:sNx+OLx,1-OLy:sNy+OLy,
72       &                     PTRACERS_num,nSx,nSy)       &                     PTRACERS_num,nSx,nSy)
73        COMMON /PTRACERS_MASKS/ pTracerMasks        COMMON /PTRACERS_MASKS/ pTracerMasks
74    
75    C     pTracerTakahashi :: variable containing monthly mean
76    C                         Takahashi CO2 flux climatology
77          _RS pTracerTakahashi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
78          COMMON /PTRACERS_Takahashi/ pTracerTakahashi
79    
80  CEOP  CEOP
81  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22