30 |
COMMON /TR1_S/ fice, fice0, fice1, |
COMMON /TR1_S/ fice, fice0, fice1, |
31 |
& xkw, xkw0, xkw1, |
& xkw, xkw0, xkw1, |
32 |
& patm, patm0, patm1, |
& patm, patm0, patm1, |
33 |
& sss, sss0, sss1, |
& WOAsss, WOAsss0, WOAsss1, |
34 |
& sst, sst0, sst1, |
& WOAsst, WOAsst0, WOAsst1, |
35 |
& SurfDicPreind, SurfDicAnthro, SurfNatD14C |
& SurfDicPreind, SurfDicAnthro, SurfNatD14C |
36 |
_RL fice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL fice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
37 |
_RL fice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL fice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
42 |
_RL patm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL patm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
43 |
_RL patm0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL patm0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
44 |
_RL patm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL patm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
45 |
_RL sss (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL WOAsss (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
46 |
_RL sss0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL WOAsss0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
47 |
_RL sss1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL WOAsss1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
48 |
_RL sst (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL WOAsst (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
49 |
_RL sst0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL WOAsst0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
50 |
_RL sst1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL WOAsst1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
51 |
_RL SurfDicPreind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SurfDicPreind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
52 |
_RL SurfDicAnthro (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SurfDicAnthro (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
53 |
_RL SurfNatD14C (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SurfNatD14C (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
54 |
|
|
55 |
COMMON /TR1_C/ FiceFile, XkwFile, PatmFile, SssFile, SstFile, |
COMMON /TR1_C/ FiceFile,XkwFile,PatmFile,WOAsssFile,WOAsstFile, |
56 |
& SurfDicPreindFile, SurfDicAnthroFile, SurfNatD14CFile |
& SurfDicPreindFile, SurfDicAnthroFile, SurfNatD14CFile |
57 |
CHARACTER*(MAX_LEN_FNAM) |
CHARACTER*(MAX_LEN_FNAM) |
58 |
& FiceFile, XkwFile, PatmFile, SssFile, SstFile, |
& FiceFile, XkwFile, PatmFile, WOAsssFile, WOAsstFile, |
59 |
& SurfDicPreindFile, SurfDicAnthroFile, SurfNatD14CFile |
& SurfDicPreindFile, SurfDicAnthroFile, SurfNatD14CFile |
60 |
|
|
61 |
C-- Parameters that specify size of input files for |
C-- Parameters that specify size of input files for |
62 |
C FiceFile, XkwFile, PatmFile, SssFile, and SstFile |
C FiceFile, XkwFile, PatmFile, WOAsssFile, and WOAsstFile |
63 |
INTEGER nlon , nlat |
INTEGER nlon , nlat |
64 |
PARAMETER( nlon=360 , nlat=180 ) |
PARAMETER( nlon=360 , nlat=180 ) |
65 |
real*8 lon0 , lon_inc , lat0 |
real*8 lon0 , lon_inc , lat0 |