pkg/streamice/STREAMICE_CTRL_FLUX.h

C $Header:  $
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
1	C $Header: $
2	C $Name: $
3
4	C---+----1--+-+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
5
6	#ifdef ALLOW_STREAMICE_FLUX_CONTROL
7
8	INTEGER n_fluxes_max
9	INTEGER n_epochs_max
10
11	COMMON /STREAMICE_CTRL_FLUX_INT_PARAM/
12	& n_fluxes, n_epochs
13	INTEGER n_fluxes
14	INTEGER n_epochs
15
16	COMMON /STREAMICE_CTRL_FLUX_INT/
17	& streamice_ctrl_flux_id
18	INTEGER streamice_ctrl_flux_id (n_fluxes_max)
19
20	COMMON /STREAMICE_CTRL_FLUX_RS/
21	& streamice_ctrl_flux_mask
22	_RS streamice_ctrl_flux_mask
23	& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) ! need to initialize this from alex's file
24
25	COMMON /STREAMICE_CTRL_FLUX_RL/
26	& streamice_ctrl_flux_scaleVel,
27	& u_bdry_values_SI_base,
28	& v_bdry_values_SI_base
29	_RL streamice_ctrl_flux_scaleVel (n_fluxes_max, n_epochs_max)
30	_RL u_bdry_values_SI_base
31	& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32	_RL v_bdry_values_SI_base
33	& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34
35
36
37	#endif