97 |
|
|
98 |
#ifdef ALLOW_SUBGLACIAL_RUNOFF |
#ifdef ALLOW_SUBGLACIAL_RUNOFF |
99 |
CHARACTER*(MAX_LEN_FNAM) SGrunoffFile |
CHARACTER*(MAX_LEN_FNAM) SGrunoffFile |
|
COMMON /SUBGLACIAL_RUNOFF/ |
|
|
& SGrunoffFile |
|
100 |
_RL SGrunoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SGrunoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
101 |
_RL SGrunoff0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SGrunoff0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
102 |
_RL SGrunoff1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SGrunoff1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
103 |
|
COMMON /SUBGLACIAL_RUNOFF/ |
104 |
|
& SGrunoffFile, |
105 |
|
& SGrunoff, SGrunoff0,SGrunoff1 |
106 |
#endif /* ALLOW_SUBGLACIAL_RUNOFF */ |
#endif /* ALLOW_SUBGLACIAL_RUNOFF */ |
107 |
|
|
108 |
#endif /* ALLOW_ICEFRONT */ |
#endif /* ALLOW_ICEFRONT */ |