pkg/thsice/THSICE_COST.h

C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_COST.h,v 1.4 2009/11/20 22:33:21 heimbach Exp $
C $Name:  $

C     /==========================================================\
C     | THSICE_COST.h                                            |
C     | o Sea ice cost terms.                                    |
C     \==========================================================/
C
C
c     objf_thsice    - sea-ice volume

#ifdef ALLOW_COST
      common /thsice_cost_objf/
     &                objf_thsice
      _RL  objf_thsice        (nsx,nsy)

      common /thsice_cost_aux_r/
     &                num_thsice,
     &                mult_thsice
      _RL  num_thsice  (nsx,nsy)
      _RL  mult_thsice

c     cost_ice_flag  - cost_ice flag
      common /thsice_cost_ice_i/ 
     &                           thsice_cost_ice_flag
      integer thsice_cost_ice_flag
#endif

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_COST.h,v 1.4 2009/11/20 22:33:21 heimbach Exp $
2	C $Name: $
3
4	C /==========================================================\
5	C \| THSICE_COST.h \|
6	C \| o Sea ice cost terms. \|
7	C \==========================================================/
8	C
9	C
10	c objf_thsice - sea-ice volume
11
12	#ifdef ALLOW_COST
13	common /thsice_cost_objf/
14	& objf_thsice
15	_RL objf_thsice (nsx,nsy)
16
17	common /thsice_cost_aux_r/
18	& num_thsice,
19	& mult_thsice
20	_RL num_thsice (nsx,nsy)
21	_RL mult_thsice
22
23	c cost_ice_flag - cost_ice flag
24	common /thsice_cost_ice_i/
25	& thsice_cost_ice_flag
26	integer thsice_cost_ice_flag
27	#endif
28
29	CEH3 ;;; Local Variables: ***
30	CEH3 ;;; mode:fortran ***
31	CEH3 ;;; End: ***