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

Diff of /trunk/Sources/dyn3d/advy.f

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

trunk/dyn3d/advy.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC trunk/Sources/dyn3d/advy.f revision 178 by guez, Fri Mar 11 18:47:26 2016 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  
   REAL ssum  
   EXTERNAL ssum  
   
   REAL sqi, sqf  
87    LOGICAL limit    LOGICAL limit
88    
89    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.81  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21