1 |
jmc |
1.2 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
dgoldberg |
1.1 |
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 |
jmc |
1.2 |
|
11 |
dgoldberg |
1.1 |
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 |
jmc |
1.2 |
_RL u_bdry_values_SI_base |
31 |
dgoldberg |
1.1 |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
32 |
jmc |
1.2 |
_RL v_bdry_values_SI_base |
33 |
dgoldberg |
1.1 |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
34 |
jmc |
1.2 |
|
35 |
dgoldberg |
1.1 |
|
36 |
|
|
|
37 |
|
|
#endif |