C $Header: /u/gcmpack/MITgcm/pkg/shelfice/SHELFICE_COST.h,v 1.3 2012/01/06 09:33:59 mlosch Exp $ C $Name: $ #ifdef ALLOW_SHELFICE CBOP C !ROUTINE: SHELFICE_COST.h C !DESCRIPTION: \bv C /==========================================================\ C | SHELFICE_COST.h | C | o shelfice cost terms | C \==========================================================/ C \ev CEOP #ifdef ALLOW_COST COMMON /SHELFICE_COST_FIELDS_RL/ & cMeanSHIforT, & cMeanSHIforS, & objf_shelfice, & objf_shifwflx, & num_shifwflx _RL cMeanSHIforT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL cMeanSHIforS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL objf_shelfice(nSx,nSy) _RL objf_shifwflx(nSx,nSy) _RL num_shifwflx(nSx,nSy) COMMON /SHELFICE_COST_C/ shifwflx_errfile CHARACTER*(MAX_LEN_FNAM) shifwflx_errfile COMMON /SHELFICE_COST_WEIGHTS/ wshifwflx _RL wshifwflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) COMMON /SHELFICE_COST_SCALAR_RL/ & mult_shelfice, & mult_shifwflx, & wshifwflx0 _RL mult_shelfice _RL mult_shifwflx _RL wshifwflx0 #endif #endif /* ALLOW_SHELFICE */