/[lmdze]/trunk/dyn3d/advyp.f
ViewVC logotype

Diff of /trunk/dyn3d/advyp.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.112  
changed lines
  Added in v.113

  ViewVC Help
Powered by ViewVC 1.1.21