/[MITgcm]/MITgcm/pkg/cfc/CFC.h
ViewVC logotype

Diff of /MITgcm/pkg/cfc/CFC.h

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

revision 1.2 by jmc, Mon Oct 8 23:57:20 2007 UTC revision 1.4 by jmc, Wed Apr 9 16:07:41 2008 UTC
# Line 12  C     |================================= Line 12  C     |=================================
12        _RL  AtmosCFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  AtmosCFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
13        _RL  Atmosp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  Atmosp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
14        _RL  pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
15        _RL  fice(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  fice  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
16    
17         COMMON /CFC11_CHEM/         COMMON /CFC11_CHEM/
18       &              A1_11,A2_11,A3_11,A4_11,       &              A1_11,A2_11,A3_11,A4_11,
# Line 26  C     |================================= Line 26  C     |=================================
26    
27    
28  C schmidt number coefficients  C schmidt number coefficients
29        COMMON /SCHMIDT_NO/        COMMON /CFC_SCHMIDT_NO/
30       &                    sca_11_1, sca_11_2, sca_11_3, sca_11_4,       &                    sca_11_1, sca_11_2, sca_11_3, sca_11_4,
31       &                    sca_12_1, sca_12_2, sca_12_3, sca_12_4       &                    sca_12_1, sca_12_2, sca_12_3, sca_12_4
32        _RL sca_11_1, sca_11_2, sca_11_3, sca_11_4        _RL sca_11_1, sca_11_2, sca_11_3, sca_11_4
33        _RL sca_12_1, sca_12_2, sca_12_3, sca_12_4        _RL sca_12_1, sca_12_2, sca_12_3, sca_12_4
34    
35  c atmospheric CFC timseries  c atmospheric CFC timseries
36        COMMON /CFC_atmosdata/        COMMON /CFC_ATMOSDATA/
37       &                  ACFC11, ACFC12,       &                  ACFC11, ACFC12,
38       &                  cfc_yearbeg, cfc_yearend       &                  cfc_yearbeg, cfc_yearend
39        _RL ACFC11(100,2)        _RL ACFC11(100,2)
40        _RL ACFC12(100,2)        _RL ACFC12(100,2)
41        INTEGER cfc_yearbeg, cfc_yearend        INTEGER cfc_yearbeg, cfc_yearend
42    
43          COMMON /CFC_LOAD/
44         &    wind0, wind1, ice0, ice1, atmosp0, atmosp1
45          _RS wind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46          _RS wind1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47          _RS ice0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
48          _RS ice1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49          _RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
50          _RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
51    
52    C--   COMMON /CFC_FILENAMES/
53    C  CFC_windFile    :: file name of wind speeds
54    C  CFC_atmospFile  :: file name of atmospheric pressure
55    C  CFC_iceFile     :: file name of seaice fraction
56    C  CFC_forcingPeriod :: periodic forcing parameter specific for cfc (seconds)
57    C  CFC_forcingCycle  :: periodic forcing parameter specific for cfc (seconds)
58    
59          COMMON /CFC_FILENAMES/
60         &        CFC_windFile, CFC_atmospFile, CFC_iceFile,
61         &        CFC_forcingPeriod, CFC_forcingCycle
62    
63          CHARACTER*(MAX_LEN_FNAM) CFC_windFile
64          CHARACTER*(MAX_LEN_FNAM) CFC_atmospFile
65          CHARACTER*(MAX_LEN_FNAM) CFC_iceFile
66          _RL     CFC_forcingPeriod
67          _RL     CFC_forcingCycle
68    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22