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

Diff of /trunk/dyn3d/advy.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC
# Line 84  SUBROUTINE advy(limit, dty, pbarv, sm, s Line 84  SUBROUTINE advy(limit, dty, pbarv, sm, s
84    
85    ! Special pour poles    ! Special pour poles
86    
   REAL sbms, sfms, sfzs, sbmn, sfmn, sfzn  
   REAL sns0(ntra), snsz(ntra), snsm  
   REAL s1v(llm), slatv(llm)  
   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)  
   REAL smpn, smps, s0pn, s0ps  
87    REAL ssum    REAL ssum
88    EXTERNAL ssum    EXTERNAL ssum
89    
   REAL sqi, sqf  
90    LOGICAL limit    LOGICAL limit
91    
92    lon = iim ! rem : Il est possible qu'un pbl. arrive ici    lon = iim ! rem : Il est possible qu'un pbl. arrive ici
Legend:
Removed from v.82  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.21