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

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

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


Revision 1.1.2.1 - (hide annotations) (download)
Thu Aug 25 16:22:17 2005 UTC (15 years, 9 months ago) by dimitri
Branch: release1_50yr
Changes since 1.1: +68 -0 lines
File MIME type: text/plain
adding ecco1x1 verification/global_with_CFC11 experiment

1 dimitri 1.1.2.1 C $Header: /u/gcmpack/MITgcm/verification/global_with_CFC11/code50yr/Attic/TR1.h,v 1.1.2.2 2003/05/04 23:19:18 dimitri Exp $
2     C $Name: release1_50yr $
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/

  ViewVC Help
Powered by ViewVC 1.1.22