/[MITgcm]/MITgcm/verification/global_with_CFC11/code1x1/TR1.h
ViewVC logotype

Diff of /MITgcm/verification/global_with_CFC11/code1x1/TR1.h

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

revision 1.1 by dimitri, Thu Aug 25 16:22:17 2005 UTC revision 1.1.2.1 by dimitri, Thu Aug 25 16:22:17 2005 UTC
# Line 0  Line 1 
1    C $Header$
2    C $Name$
3    C
4    CBOP
5    C    !ROUTINE: TR1.h
6    C    !INTERFACE:
7    C    include TR1.h
8    C    !DESCRIPTION: \bv
9    C     *==========================================================*
10    C     | TR1.h                                                    
11    C     | o Tracer 1 prognostic state.                              
12    C     *==========================================================*
13    C     | The value and two levels of time tendency are held for    
14    C     | each prognostic variable.                                
15    C     | This file is hardcoded for OCMIP CFC-11 experiment.
16    C     *==========================================================*
17    C     \ev
18    CEOP
19    C
20    C     TR1     :: tracer concentration (tr per unit volume).
21    C     GTR1    :: tracer concentration (TR1 per second).
22    C     GTR1NM1 :: tracer concentration (TR1 per second).
23    
24          COMMON /TR1_R/ tr1, gTr1, gTr1NM1, surfaceTendencyTr1
25          _RL  tr1     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
26          _RL  gTr1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
27          _RL  gTr1NM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
28          _RS  surfaceTendencyTr1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29    
30          COMMON /TR1_S/ fice, fice0, fice1,
31         &                xkw,  xkw0,  xkw1,
32         &               patm, patm0, patm1
33          _RL  fice    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34          _RL  fice0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35          _RL  fice1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36          _RL  xkw     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37          _RL  xkw0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38          _RL  xkw1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39          _RL  patm    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40          _RL  patm0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
41          _RL  patm1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
42    
43          COMMON /TR1_C/           FiceFile, XkwFile, PatmFile
44          CHARACTER*(MAX_LEN_FNAM) FiceFile, XkwFile, PatmFile
45    
46          INTEGER    nyrbeg     , nyrend     , nt
47          PARAMETER( nyrbeg=1930, nyrend=2001, nt=2 )
48          COMMON /TR1_CFC/ CFCyear, CFCp11, CFCp12, pCFCw1, pCFCw2
49          _RL  CFCyear(nyrbeg:nyrend)
50          _RL  CFCp11(nyrbeg:nyrend,nt), CFCp12(nyrbeg:nyrend,nt)
51          _RL  pCFCw1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
52          _RL  pCFCw2  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53    
54    C--   Parameters that specify size of input files
55          INTEGER    nlon     , nlat
56          PARAMETER( nlon=360 , nlat=180 )
57          real*8     lon0     , lon_inc     , lat0
58          PARAMETER( lon0=0.5 , lon_inc=1.0 , lat0=-89.5 )
59          real*8 lat_inc(nlat)
60          DATA   lat_inc /1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
61         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
62         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
63         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
64         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
65         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
66         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
67         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
68         &                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1/
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.2.1
  ViewVC Help
Powered by ViewVC 1.1.22