Parent Directory | Revision Log | Patch
revision 112 by guez, Wed Mar 5 14:57:53 2014 UTC | revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC | |
---|---|---|
# | Line 101 SUBROUTINE advyp(limit, dty, pbarv, sm, | Line 101 SUBROUTINE advyp(limit, dty, pbarv, sm, |
101 | ! Special pour poles | ! Special pour poles |
102 | ||
103 | REAL sbms, sfms, sfzs, sbmn, sfmn, sfzn | REAL sbms, sfms, sfzs, sbmn, sfmn, sfzn |
REAL sns0(ntra), snsz(ntra), snsm | ||
REAL qy1(iim, llm, ntra), qylat(iim, llm, ntra) | ||
REAL cx1(llm, ntra), cxlat(llm, ntra) | ||
REAL cy1(llm, ntra), cylat(llm, ntra) | ||
REAL z1(iim), zcos(iim), zsin(iim) | ||
104 | REAL ssum | REAL ssum |
105 | EXTERNAL ssum | EXTERNAL ssum |
106 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |