1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
5 |
|
|
6 |
#ifdef ALLOW_STREAMICE |
#ifdef ALLOW_STREAMICE |
7 |
|
|
8 |
COMMON /STREAMICE_ADV_FIELDS_RL/ |
! COMMON /STREAMICE_ADV_FIELDS_RL/ |
9 |
& hflux_x_SI, hflux_y_SI, |
! & hflux_x_SI, hflux_y_SI, |
10 |
& hflux_x_SI2, hflux_y_SI2, |
! & hflux_x_SI2, hflux_y_SI2, |
11 |
& h_after_uflux_SI, h_after_vflux_SI |
! & h_after_uflux_SI, h_after_vflux_SI |
12 |
_RL hflux_x_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
! _RL hflux_x_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
13 |
_RL hflux_y_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
! _RL hflux_y_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
14 |
_RL hflux_x_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
! _RL hflux_x_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
15 |
_RL hflux_y_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
! _RL hflux_y_SI2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
16 |
_RL h_after_uflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
! _RL h_after_uflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
17 |
_RL h_after_vflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
! _RL h_after_vflux_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
18 |
|
|
19 |
#endif /* ALLOW_STREAMICE */ |
#endif /* ALLOW_STREAMICE */ |
20 |
|
|
21 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
22 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
|
CEH3 ;;; End: *** |
|
23 |
|
CEH3 ;;; End: *** |