341 |
& BDOT_streamice, ADOT_streamice, BDOT_pert,! mass balances in meters per year |
& BDOT_streamice, ADOT_streamice, BDOT_pert,! mass balances in meters per year |
342 |
& streamice_sigma_coord, streamice_delsigma, |
& streamice_sigma_coord, streamice_delsigma, |
343 |
& H_streamice_prev |
& H_streamice_prev |
344 |
|
& u_new_si, v_new_si |
345 |
|
|
346 |
#ifdef STREAMICE_STRESS_BOUNDARY_CONTROL |
#ifdef STREAMICE_STRESS_BOUNDARY_CONTROL |
347 |
COMMON /STREAMICE_STRESS_BOUNDARY/ |
COMMON /STREAMICE_STRESS_BOUNDARY/ |
479 |
_RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL BDOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
480 |
_RL BDOT_pert (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL BDOT_pert (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
481 |
_RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
482 |
|
_RL v_new_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
483 |
|
_RL u_new_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
484 |
_RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
485 |
|
|
486 |
#ifdef ALLOW_STREAMICE_TIMEDEP_FORCING |
#ifdef ALLOW_STREAMICE_TIMEDEP_FORCING |
542 |
INTEGER n_dofs_process (0:nPx*nPy-1) |
INTEGER n_dofs_process (0:nPx*nPy-1) |
543 |
#endif |
#endif |
544 |
|
|
545 |
|
#ifdef ALLOW_OPENAD |
546 |
|
COMMON /STREAMICE_OPENAD_PARMS/ |
547 |
|
& streamice_oad_nonlin_tol_fp |
548 |
|
_RL streamice_oad_nonlin_tol_fp |
549 |
|
|
550 |
|
COMMON /STREAMICE_PHISTAGE_ARRS/ |
551 |
|
& U_streamice_dvals, |
552 |
|
& V_streamice_dvals |
553 |
|
_RL U_streamice_dvals |
554 |
|
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
555 |
|
_RL V_streamice_dvals |
556 |
|
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
557 |
|
#endif |
558 |
|
|
559 |
#endif /* ALLOW_STREAMICE */ |
#endif /* ALLOW_STREAMICE */ |
560 |
|
|
561 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |