C $Header: /u/gcmpack/MITgcm/pkg/streamice/STREAMICE_CTRL_FLUX.h,v 1.2 2013/06/21 20:49:50 jmc Exp $ C $Name: $ C---+----1--+-+----2----+----3----+----4----+----5----+----6----+----7-|--+----| #ifdef ALLOW_STREAMICE_FLUX_CONTROL INTEGER n_fluxes_max INTEGER n_epochs_max COMMON /STREAMICE_CTRL_FLUX_INT_PARAM/ & n_fluxes, n_epochs INTEGER n_fluxes INTEGER n_epochs COMMON /STREAMICE_CTRL_FLUX_INT/ & streamice_ctrl_flux_id INTEGER streamice_ctrl_flux_id (n_fluxes_max) COMMON /STREAMICE_CTRL_FLUX_RS/ & streamice_ctrl_flux_mask _RS streamice_ctrl_flux_mask & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) ! need to initialize this from alex's file COMMON /STREAMICE_CTRL_FLUX_RL/ & streamice_ctrl_flux_scaleVel, & u_bdry_values_SI_base, & v_bdry_values_SI_base _RL streamice_ctrl_flux_scaleVel (n_fluxes_max, n_epochs_max) _RL u_bdry_values_SI_base & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL v_bdry_values_SI_base & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) #endif