pkg/streamice/STREAMICE_CTRL_FLUX.h

5ca83cd8f7 Dani*0001 C---+----1--+-+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0002
                0003 #ifdef ALLOW_STREAMICE_FLUX_CONTROL
                0004
                0005       INTEGER n_fluxes_max
                0006       INTEGER n_epochs_max
887f427c62 Jean*0007
5ca83cd8f7 Dani*0008       COMMON /STREAMICE_CTRL_FLUX_INT_PARAM/
                0009      & n_fluxes, n_epochs
                0010       INTEGER n_fluxes
                0011       INTEGER n_epochs
                0012
                0013       COMMON /STREAMICE_CTRL_FLUX_INT/
                0014      & streamice_ctrl_flux_id
                0015       INTEGER streamice_ctrl_flux_id (n_fluxes_max)
                0016
                0017       COMMON /STREAMICE_CTRL_FLUX_RS/
                0018      & streamice_ctrl_flux_mask
                0019       _RS streamice_ctrl_flux_mask
                0020      & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)   ! need to initialize this from alex's file
                0021
                0022       COMMON /STREAMICE_CTRL_FLUX_RL/
                0023      & streamice_ctrl_flux_scaleVel,
                0024      & u_bdry_values_SI_base,
                0025      & v_bdry_values_SI_base
                0026       _RL streamice_ctrl_flux_scaleVel (n_fluxes_max, n_epochs_max)
887f427c62 Jean*0027       _RL u_bdry_values_SI_base
5ca83cd8f7 Dani*0028      & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
887f427c62 Jean*0029       _RL v_bdry_values_SI_base
5ca83cd8f7 Dani*0030      & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
887f427c62 Jean*0031
5ca83cd8f7 Dani*0032
                0033
                0034 #endif