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

Contents 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 - (show annotations) (download)
Thu Aug 25 16:22:17 2005 UTC (15 years, 11 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 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