pkg/shelfice/SHELFICE_COST.h

359d9ec3d7 Patr*0001 #ifdef ALLOW_SHELFICE
                0002
                0003 CBOP
                0004 C !ROUTINE: SHELFICE_COST.h
                0005
                0006 C !DESCRIPTION: \bv
                0007 C     /==========================================================\
                0008 C     | SHELFICE_COST.h                                          |
e91abf3040 Mart*0009 C     | o shelfice cost terms                                    |
359d9ec3d7 Patr*0010 C     \==========================================================/
                0011
                0012 C \ev
                0013 CEOP
                0014
                0015 #ifdef ALLOW_COST
                0016       COMMON /SHELFICE_COST_FIELDS_RL/
                0017      &     cMeanSHIforT,
                0018      &     cMeanSHIforS,
abed653eb5 Mart*0019      &     objf_shelfice,
                0020      &     objf_shifwflx,
                0021      &     num_shifwflx
359d9ec3d7 Patr*0022       _RL cMeanSHIforT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0023       _RL cMeanSHIforS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0024       _RL objf_shelfice(nSx,nSy)
abed653eb5 Mart*0025       _RL objf_shifwflx(nSx,nSy)
                0026       _RL  num_shifwflx(nSx,nSy)
                0027
                0028       COMMON /SHELFICE_COST_C/ shifwflx_errfile
                0029       CHARACTER*(MAX_LEN_FNAM) shifwflx_errfile
                0030
                0031       COMMON /SHELFICE_COST_WEIGHTS/ wshifwflx
                0032       _RL wshifwflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
359d9ec3d7 Patr*0033
                0034       COMMON /SHELFICE_COST_SCALAR_RL/
abed653eb5 Mart*0035      &     mult_shelfice,
                0036      &     mult_shifwflx,
                0037      &     wshifwflx0
359d9ec3d7 Patr*0038       _RL mult_shelfice
abed653eb5 Mart*0039       _RL mult_shifwflx
                0040       _RL wshifwflx0
359d9ec3d7 Patr*0041 #endif
                0042
                0043 #endif /* ALLOW_SHELFICE */