/[MITgcm]/MITgcm/pkg/seaice/SEAICE_COST.h
ViewVC logotype

Diff of /MITgcm/pkg/seaice/SEAICE_COST.h

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

revision 1.1 by heimbach, Thu Aug 25 16:10:42 2005 UTC revision 1.2 by heimbach, Thu Sep 1 05:34:30 2005 UTC
# Line 11  c     objf_ice    - sea-ice volume Line 11  c     objf_ice    - sea-ice volume
11    
12        common /seaice_cost_objf/        common /seaice_cost_objf/
13       &                objf_ice       &                objf_ice
14         &              , objf_smrarea
15        _RL  objf_ice  (nsx,nsy)        _RL  objf_ice  (nsx,nsy)
16          _RL  objf_smrarea (nsx,nsy)
17    
18        common /seaice_cost_num/        common /seaice_cost_num/
19       &                num_ice       &                num_ice
20         &              , num_smrarea
21        _RL  num_ice  (nsx,nsy)        _RL  num_ice  (nsx,nsy)
22          _RL  num_smrarea (nsx,nsy)
23    
24        common /seaice_cost_aux_r/        common /seaice_cost_aux_r/
25       &                mult_ice       &                mult_ice
26         &              , mult_smrarea
27        _RL  mult_ice        _RL  mult_ice
28          _RL  mult_smrarea
29    
30        common /seaice_cost_data_aux_i/        common /seaice_cost_data_aux_i/
31       &                           costIceStart1,       &                           costIceStart1,
# Line 43  c     cost_ice_flag  - cost_ice flag (se Line 49  c     cost_ice_flag  - cost_ice flag (se
49       &                           cost_ice_flag       &                           cost_ice_flag
50        integer cost_ice_flag        integer cost_ice_flag
51    
52    #ifdef ALLOW_SEAICE_COST_SMR_AREA
53          _RL smrareabar(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
54    #else
55          _RL smrareabar
56    #endif
57          common /seaice_cost_averages_r/
58         &       smrareabar
59    
60          _RL wsmrarea(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
61          _RL wsmrarea0
62          _RL wmean_smrarea
63          common /seaice_cost_weights_r/
64         &       wsmrarea
65         &     , wsmrarea0
66         &     , wmean_smrarea
67    
68          _RL smrareadat(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
69          common /seaice_cost_data_r/
70         &       smrareadat
71    
72          character*(MAX_LEN_FNAM) smrarea_errfile
73          character*(MAX_LEN_FNAM) smrareadatfile
74          character*(MAX_LEN_FNAM) smrareabarfile
75          common /seaice_cost_c/
76         &       smrarea_errfile
77         &     , smrareadatfile
78         &     , smrareabarfile
79    
80          integer smrareastartdate(4)
81          integer smrareastartdate1
82          integer smrareastartdate2
83          common /seaice_cost_i/
84         &       smrareastartdate
85         &     , smrareastartdate1
86         &     , smrareastartdate2
87    
88          _RL smrareaperiod
89          common /seaice_cost_period_r/
90         &       smrareaperiod
91    
92  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
93  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22