pkg/seaice/SEAICE_COST.h

2b959ba38e Mart*0001 C     *==========================================================*
869864d4b6 Patr*0002 C     | SEAICE_COST.h                                            |
                0003 C     | o Sea ice cost terms.                                    |
2b959ba38e Mart*0004 C     *==========================================================*
                0005
                0006 C     objf_ice   :: sea-ice volume
                0007       COMMON /seaice_cost_objf/
                0008      &                objf_ice,
                0009      &                objf_ice_export
                0010       _RL  objf_ice        (nSx,nSy)
                0011       _RL  objf_ice_export (nSx,nSy)
                0012
                0013 C-   SEAICE_cutoff_area & _heff :: only used in pkg/ecco GET_EXCONC_DECONC S/R
                0014       COMMON /seaice_cost_aux_r/
                0015      &                num_ice,
                0016      &                mult_ice,
                0017      &                mult_ice_export,
                0018      &                SEAICE_cutoff_area,
                0019      &                SEAICE_cutoff_heff
                0020       _RL  num_ice  (nSx,nSy)
869864d4b6 Patr*0021       _RL  mult_ice
1e22f5fc71 Patr*0022       _RL  mult_ice_export
1bedc5345f An T*0023       _RL  SEAICE_cutoff_area
                0024       _RL  SEAICE_cutoff_heff
869864d4b6 Patr*0025
2b959ba38e Mart*0026       COMMON /seaice_cost_data_aux_i/
869864d4b6 Patr*0027      &                           costIceStart1,
                0028      &                           costIceStart2,
                0029      &                           costIceEnd1,
                0030      &                           costIceEnd2
2b959ba38e Mart*0031       INTEGER costIceStart1
                0032       INTEGER costIceStart2
                0033       INTEGER costIceEnd1
                0034       INTEGER costIceEnd2
869864d4b6 Patr*0035
2b959ba38e Mart*0036       COMMON /seaice_cost_data_times_r/ costIceStart, costIceEnd
869864d4b6 Patr*0037       _RL costIceStart
                0038       _RL costIceEnd
                0039
2b959ba38e Mart*0040 C     cost_ice_flag  :: cost_ice flag (see seaice_cost_test.F)
                0041       COMMON /seaice_cost_i/ cost_ice_flag
                0042       INTEGER cost_ice_flag
869864d4b6 Patr*0043
2b959ba38e Mart*0044 #ifdef ALLOW_SEAICE_COST_EXPORT
                0045       _RL uHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0046       _RL vHeffExportCell(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0047       COMMON /SEAICE_COST_EXPORT_R/
                0048      &       uHeffExportCell, vHeffExportCell
3ad0d94cb0 Patr*0049 #endif