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	heimbach	1.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: ***