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